Connecting To Access Database

make sure to reference MS ActiveX Data Object (ADO) under projects/references:

Dim myConn as New ADODB.Connection
Dim myRS as New ADODB.Recordset

myConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security " & _
          "Info=False;Data Source=<path to db>"
with myRS
   .Open "Select Field1 from Table1"
   .addNew
   .Fields("Field1") = Form1.text1.text '' your textbox
   .update
   .close
end with

set myRS = nothing
myConn.close
set myConn = nothing

I get the following error:

RunTime 3709
The connection cannot be used to perform this operation.  It is either closed or invalid in this context.

Here's the code I used:
Private Sub cmdSave_Click()
Dim myConn As New ADODB.Connection
Dim myRS As New ADODB.Recordset

myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security " & _
         "Info=False;Data Source=" & App.Path & "\SysInfo.mdb"
With myRS
  .Open "Select * from tblComputerInfo"
  .AddNew
  .Fields("ComputerName") = Me.txtComputerName.Text
  .Update
  .Close
End With

Set myRS = Nothing
myConn.Close
Set myConn = Nothing
End Sub

in your open statement, you didn't select the connection.  Your connection isn't tied to your recordset.  

try this
.Open "Select * from tblComputerInfo", myConn

It says my record source cannot be updated.   Why would that be?

You might also need to specify a cursortype and cursorlocation:

Private Sub cmdSave_Click()
Dim myConn As New ADODB.Connection
Dim myRS As New ADODB.Recordset

myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security " & _
        "Info=False;Data Source=" & App.Path & "\SysInfo.mdb"
With myRS
 .CursorType = adOpenDynamic
 .CursorLocation = adUseClient
 .Open "Select * from tblComputerInfo", myConn
 .AddNew
 .Fields("ComputerName") = Me.txtComputerName.Text
 .Update
 .Close
End With

Set myRS = Nothing
myConn.Close
Set myConn = Nothing
End Sub

I am still getting the same error....
Run-time error 3251
Current recordset does not support updating.  This may be a limitation of the provider, or of the selected locktype.

Which version of Access mdb?

2000

2000

yeah, oops, should be something like:

myRS.open "Select Field1 from Table1", myConn, adOpenForwardOnly, adLockOptimistic

Also, I found ADO to be really picky.  Make sure your table has a primary key defined, and no extranious spaces or special characters in the table and field names.

bobbit: adOpenForwardOnly allows updates?

> adOpenForwardOnly allows updates?

it does for me

Did you get it working?