Public Class Customerdetails
Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
updatecustomerdatabase("Insert INTO Customer (FirstName), VALUES cstr(txtcustomername.text)")
End Sub
Sub updatecustomerdatabase(ByVal sqlStr As String)
Dim newcustomer As New DataTable
Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = maindatabase.mdb"
Dim dataAdaptor4 As New OleDb.OleDbDataAdapter(sqlStr, connStr)
dataAdaptor4.Fill(newcustomer)
dataAdaptor4.Dispose()
End Sub
End Class