Hi Everyone who tried to help me with this. It was driving me crazy but I finally figured it out the suggestions help greatly but here is the code that worked
CODE
Option Explicit
'Dim intOrderID As Integer
'Dim intBalance As Currency
'Dim conn As ADODB.Connection
Dim statement As String
Dim conn As New ADODB.Connection
Private Sub cmdSave_Click()
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\TerrysCustomData\TerrysData.mdb'"
conn.Open
statement = " UPDATE Invoices " & _
" SET Balance = " & txtRemaining & " " & _
" WHERE OrdrNum = " & txtOrderID & ""
conn.Execute statement, , adCmdText
conn.Close
End Sub
As you can see i got rid of the myconn references and changed the execute and close staements to reflect this (Thanks Nayana) I also had to remove the single quotes from around the txt(statements) it now works likea charm.
Once again Thank you everyone!!!
23 Jan, 2008 - 05:49 PM
| 