Base de datos en Visual Basic

Hola amigos vengo necesitado de su ayuda y es q no puedo guardar un nuevo registro en la base de datos rl programa depura correctamente y me muestra la base de datos pero no me agrega el nuevo registro este es el codigo de el programa

Código:

 Public conexion As New System.Data.OleDb.OleDbConnection("Provider =Microsoft.ace.oledb.12.0;Data Source=productos.mdb;persist security info = false")

Try

 * * * * * *conexion.Open()

 * * * * * *Dim comando As New System.Data.OleDb.OleDbCommand("Select * from tabla1", conexion)

 * * * * * *Dim adaptador As New System.Data.OleDb.OleDbDataAdapter(comando)

 * * * * * *Dim datos As New System.Data.DataSet







 * * * * * *adaptador.Fill(datos)

 * * * * * *Me.DataGridView1.DataSource = datos.Tables(0)

 * * * * * *Me.DataGridView1.Refresh()



 * * * *Catch ex As Exception

 * * * * * *MessageBox.Show(ex.Message)



 * * * *End Try



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clic



 * * * *Dim comando As New System.Data.OleDb.OleDbCommand("Insert into tabla1 values(' " & TextBox1.Text & " ', " & TextBox2.Text & " ', " & TextBox3.Text & " ', " & TextBox4.Text & " ', " & TextBox5.Text & " ', " & Me.DateTimePicker1.Text & ")", conexion)

 * * * *Dim actualizar As New System.Data.OleDb.OleDbCommand("select * from tabla1", conexion)



 * * * *Try

 * * * * * *comando.ExecuteNonQuery()

 * * * * * *Dim adaptador As New System.Data.OleDb.OleDbDataAdapter(actualizar)

 * * * * * *Dim datos As New System.Data.DataSet()





 * * * * * *adaptador.Fill(datos)

 * * * * * *Me.DataGridView1.DataSource = datos.Tables(0)

 * * * * * *Me.DataGridView1.Refresh()





 * * * *Catch ex As Exception

 * * * * * *MessageBox.Show(ex.Message)



 * * * *End Try

[SIZE=7][COLOR=purple]saludos

HOLA amigos me imagino q no me supe expresar muy bien en mi pregunta por eso no pudieron responder pero gracias a Dios al final de tantos intentos por arreglar ese codigo lo pude lograr.

agradesco que tengan este foro por cualquier duda

muchas gracias saludos.

Hola, podrias postear como lo resolviste, talvez ayudes a alguien mas con la misma duda.



Saludos

Bueno como me lo solicitaste rob1104 aqui esta el codigo q funciona correctamente la verdad el unico error q tenia era por utilizar el DateTimePicker ya q los valores de este no coincidian con la base de datos solo tube q sustituirlo por un textbox y ya.

Código:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



 * * * *Dim comando As New System.Data.OleDb.OleDbCommand("Insert into Tabla1 values('" & TextBox1.Text & " ',' " & TextBox2.Text & " ',' " & TextBox3.Text & " ',' " & TextBox4.Text & " ',' " & TextBox5.Text & " ',' " & Me.TextBox6.Text & " ') ", conexion)

 * * * *Dim actualizar As New System.Data.OleDb.OleDbCommand("select * from Tabla1", conexion)



 * * * *Try

 * * * * * *comando.ExecuteNonQuery()

 * * * * * *Dim adaptador As New System.Data.OleDb.OleDbDataAdapter(actualizar)

 * * * * * *Dim datos As New System.Data.DataSet()





 * * * * * *adaptador.Fill(datos)

Catch ex As Exception

 * * * * * *MessageBox.Show(ex.Message)

 * * * * * 



 * * * *End Try

 * * *

 * *End Sub