Foro de elhacker.net

        Dim sql As String
        sql = "INSERT INTO Usuarios (Name,LastName,NameSesion,Password,Fecha,active) values ('" & TextBox1.Text & "', '" & TextBox4.Text & "','" & TextBox3.Text & "','" & TextBox2.Text & "','" & Date.Today & "','1')"
        Dim cnn As OleDbConnection
        cnn = New OleDbConnection(Cadena)
        '  ' crear comando
        Dim Comando As New OleDbCommand(sql, cnn)
        '  ' crear DataReader
        Dim DataReader As OleDbDataReader
        cnn.Open()
        DataReader = Comando.ExecuteReader() ' obtener DataReader

INSERT INTO Usuarios (Name,LastName,NameSesion,Password,Fecha,active) VALUES ('nombreprueba', 'apellidoprueba','sesionprueba','123','08/03/2011','1')

INSERT INTO Usuarios (Name, LastName, NameSesion, Password, Fecha, active) VALUES ('nombreprueba', 'apellidoprueba','sesionprueba','123','08-03-2011', TRUE);