Boa tarde.
Segue exemplo passo a passo:
Dim Mycn As OleDbConnection
Dim Command As OleDbCommand
Dim icount As Integer
Dim SQLstr As String
Private Sub ButtonAdd_Clic
Try
Mycn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TestInsertDataVB\DataBaseTestInsertVB.mdb;")
Mycn.Open()
SQLstr = "INSERT INTO TableTestEmployes VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & _
TextBox3.Text & "','" & ComboBox1.Text & "')"
Command = New OleDbCommand(SQLstr, Mycn)
icount = cmd.ExecuteNonQuery
MessageBox.Show(icount)
Catch ex As Exception
MessageBox.Show("could not insert record")
Mycn.Close()
End Try
Referencia:
http://www.developerfusion.com/thread/28307/insert-data-into-access-from-vb-net/
Consultoria .NET
ANALISTA DESENVOLVEDOR
Se esta sugestão for útil, por favor, classifique-a como útil.
Se ela lhe ajudar a resolver o problema, por favor, marque-a como resposta.
Blog .Net Descomplicado
