Insert into

Buenas, tengo un error en la sentencia insert into.
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim oConn As New OleDbConnection
Dim oComn As New OleDbCommand
Dim oData As OleDbDataReader
'Cadena de informacin para conectarse a la base de datos
oConn.ConnectionString = ("Provider=Microsoft.Jet.OleDB.4.0; Data Source=C:\Users\Hewlett\Documents\Visual Studio 2008\Projects\LINCI\linci1.mdb")
Try
'Abrir base de datos
oConn.Open()
'Cadena de texto que tiene la sentencia SQL para consultar el usuario que se quiere loguear
'oComn.CommandText = "INSERT INTO tblUsers(strUserName,strUserPass) VALUES (TextBox1.Text "," + TextBox2.Text ")"
oComn.CommandText = "INSERT INTO tblUsers(strUserName,strUserPass) VALUES "(TextBox1.Text + TextBox2.Text)
'Asigna la conexion al comando de la consulta
oComn.Connection = oConn
'Ejecutar la consulta SQL
oData = oComn.ExecuteReader()
MsgBox("Producto creado")
'Cerramos a conexion a la base de datos
oConn.Close()
Catch ex As Exception
' MsgBox("Ha ocurrido un error")
MessageBox.Show(ex.Message)
End Try
End Sub
El error al ejecutar el procedimiento es: la conversión de la cadena josemedina en el tipo 'Integer' no es válido.
En textbox1 ingreso jose
En textbox2 ingreso medina, ambos campo son texto.
Le agradezco la ayuda y la asesoría para solucionar este error.

Añade tu respuesta

Haz clic para o