Programa En Visual

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click 
'Declaro variable de Conexion 
Dim oConn As New OleDbConnection 
'Declaro variable de Comandossql 
Dim oComn As New OleDbCommand 
'Declaro variable para lectura de Datos 
Dim oData As OleDbDataReader 

'Capturamos Error 
On Error GoTo ErrConexion 

'colocamos cadenas de Conexion oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\GMFV.mdb" 

'Abrimos Conexion 
oConn.Open() 
'Mensaje de Conexion 
'MsgBox("Conectado") 

'Preparamos Query de Consulta oComn.CommandText = " Select * from Login where User='" + txtUser.Text + "' And Pass='" + txtPass.Text + "' And Cargo='" + cmbcarg.Text + "'" 

'Asignamos la Conexion al comando 
oComn.Connection= oConn 

'Ejecutamos la Consulta 
oData = oComn.ExecuteReader() 

'Validamos si hubo resultados 
If (oData.HasRows) Then 
GMFVS.Show() 
Me.Finalize() 
Else 
MsgBox("Error!!! los datos noconcuerdan") 
End If 

'Cerramos Conexion 
oConn.Close() 
'MsgBox("Cerrada Conexion") 

Exit Sub 

ErrConexion: 
MsgBox("Error:" + Err.Description) 

End Sub 

les agradesco de antemanoImports System.Data.OleDb
Imports System.Data
Public Class Form1
Dim conn As OleDb.OleDbConnection
Dim cmd As OleDb.OleDbCommand
Private Sub Form1_Load(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles MyBase.Load
Dim con As String = “Provider=Microsoft.JET.oledb.4.0;Data Source=C:\RegistroHoras2.mdb”
conn = New OleDb.OleDbConnection(con)
‘Activar control TimerTimer1.Enabled = True
Timer1.Interval = 1
Timer1.Start()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnregistrar.Click
Dim Fecha As StringDim Hora As String
txthora.Text = Date.Now().ToLongTimeString
Fecha = Date.Now().ToLongDateString
Hora = txthora.Text
Try
conn.Open()
cmd = New OleDb.OleDbCommand(“insert into Registro...