HELP

Ok. Here:

In your project, add the reference to the MS ActiveX Data Objects Lib.

Now, do this:

Dim objCommand As ADODB.Command
     
On Error GoTo Error_Handler  
     
  ' make sure vntError isn't holding anything
  vntError = ""
 
  Set objConnection = New ADODB.Connection
  Set objCommand = New ADODB.Command

The following code makes a connection to the database through a DSN. However, this is not required, and I suggest using a DSNless connection whenever possible (using connecting string: "driver={Microsoft Access Driver (*.mdb)};dbq=C:\path\to\database\database.mdb"). When an application is using a DSN it is also using ODBC. Although this works, the application isn’t taking advantage of native OLE DB providers for the data source. When a native provider is used, performance is usually better and functionality is greater. A DSN connection uses OLE DB which uses a generic ODBC provider, which uses ODBC to forward on the calls to the data source.

   
  ' open a connection to the datasource
  With objConnection
    .ConnectionString = "DSN=MyDSN"
    .CursorLocation = adUseClient
    .Mode = adModeReadWrite
    .Open
  End With
 
Once a connection is open, the new record is added to the database through a simple INSERT statement. Any errors that arise in the routine are handled in the Error_Handler: section. This section takes the description, number, and source of the error and puts it into the vntError variable. This allows the client to check the variable to see if the routine succeeded or failed.

  ' add the contents of the txt ctrl.
  With objCommand
    Set .ActiveConnection = objConnection
    .CommandText = "INSERT INTO MyTable(Fieldname) VALUES('" &            
                    txtCtrl.text & ");"
    .CommandType = adCmdText
    .Execute
  End With
     
Exit_Handler:
  'clean up
  Set objCommand = Nothing
  If objConnection.State = adStateOpen Then objConnection.Close
  Set objConnection = Nothing
  Exit Sub
     
Error_Handler:
  vntError = Err.Description & " (" & Err.Number & " - " & Err.Source & ")"
  Resume Exit_Handler

That will add the text in the txtCtrl.text into the Fieldname field in the Authors table of the database that the MyDSN points to.