CodeItBetter Programming Another VB Programming Blog

'Database - How to Use ADO to insert records into a database
'Create an SQL INSERT statement. Use the Connection object's Execute method to
'execute the statement.

Private Sub Form_Load()
    Dim statement As String
    Dim conn As ADODB.Connection
 
    ' db_file is the Access database's file name.
    ' Open a connection.
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & db_file & ";" & _
        "Persist Security Info=False"
    conn.Open
 
    ' Compose the INSERT statement.
    statement = "INSERT INTO Addresses " & "(Name, Street, City, State, Zip) " & " VALUES (" & _
        "'" & txtName.Text & "', " & "'" & txtStreet.Text & "', " & "'" & txtCity.Text & "', " & _
        "'" & txtState.Text & "', " & "'" & txtZip.Text & "'" & ")"
 
    ' Execute the statement.
    conn.Execute statement, , adCmdText
 
    ' Close the connection.
    conn.Close
End Sub