VB6 running access query

Private Sub btnUpdate_Click()
Dim rs As Recordset
dim mydb As Database

private sub command1_click
Set mydb = db.OpenRecordset("c:\your database name")
Set rs = db.OpenRecordset("select * from yourtablename where field ='" & text1.text & "'"
If rs.RecordCount > 0 Then
rs.fields("yourfield")=text1.text
rs.updae
rs.Close
endif
Set rs = Nothing
end sub
 
'Exit Sub


End Sub

private sub btnUpdate_Click_click
Dim rs As Recordset
dim mydb As Database
Set mydb = db.OpenRecordset("c:\your database name")
Set rs = db.OpenRecordset("select * from yourtablename where field ='" & text1.text & "'"
If rs.RecordCount > 0 Then
rs.fields("yourfield")=text1.text
rs.updae
rs.Close
endif
Set rs = Nothing
End Sub

You can substitute the "Select.... " codes of the previous examples and simply enter the Query name created in Access.  This helps if your Access query includes joins and such.  Instead of entering all this as a long SQL string in VB, you simply open the query as a recordset (just like a table).
You will still need a WHERE (perhaps) and such..... but it's easier.

Scott C

thanks for the reply yeah there makes sense
however when i enter in my database name then run it, it throughs an error:
Runtime error 3078
Microsoft jet engine cannot find the input table or query
C:\DatabaseName.mdb' make sure it exists
but its there!!
this is the code:
Private Sub btnUpdate_Click()
Dim rs As Recordset
Dim mydb As Database

Set mydb = db.OpenRecordset("C:\DatabaseName") *fails here*
Set rs = db.OpenRecordset("QueryName")
If rs.RecordCount > 0 Then
'rs.Fields("yourfield") = Text1.Text
rs.Update
rs.Close
End If
Set rs = Nothing
End Sub                                            Its doing my nut in!!

Change this line:

   Set mydb = db.OpenRecordset("C:\DatabaseName") *fails here*

To:

   Set mydb = DBEngine.OpenDatabase("C:\DatabaseName")

entered that and now gets past that but now it failing on the line below!

Set rs = db.OpenRecordset("QueryName")

says error runtime error 3919
invalid operation

Why why! ? lol

*SORTED* (excuse the indentation hehe)
   Private Sub btnUpdate_Click()
    Dim rA As Integer
    Dim db As New ADODB.Connection  
   
   db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\dataBaseName.mdb"
   db.Open
   db.Execute "INSERT INTO TableA SELECT * FROM TableB", rA
    If rA > 0 Then
      MsgBox "Completed!!"
      End If
      db.Close
      Set db = Nothing
End Sub

Thanks for the help!! much appriciated