Visual Basic - AYUDA VISUAL_BASIC & SQL

HOLA a todos.

Necesito ayuda:

Estamos haciendo una bitácora electrónica en Visual BASIC 6.0 para operadores de consolas, para anotar las incidencias, cambios de turno, etc.

Ya estan hechas las mascarillas y todo lo que se refiere a cajas de texto donde capturaremos la información.

La maquina donde se instalara el programa esta en red con las demas y es en una de esas maquínas donde guardaremos, consultaremos, o modificaremos la información de la bitácora. Es una base de datos que esta hecha en access.

La ayuda es para que me digan como le hago para usar instrucciones SQL y de esta manera enlazar la bitácora con la base de datos.

Por cualquier ayuda que me puedan proporcionar, de antemano, mil gracias.

Neceito saber como imprimir Informes de un Proyecto que estoy trabajando en Visual Basic

como se imprime y se hace reporte desde visual basic

conexxion*********************************enn un modulo
Public ADOCONN As New ADODB.Connection 'CONEXION*************
Public RST_EMPLEADO As New Recordset

Public Function conex()
On Error Resume Next
ADOCONN.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" + App.Path + "\mibase.mdb"
ADOCONN.Open
If Err.Number Then
MsgBox "Se ha producido el siguiente error:" & vbCrLf & _
Err.Number & ", " & Err.Description
End
End If
End Function
Public Function desconectar()
ADOCONN.Close
End Function
*****************************************'instrrucciones
insert************
Call conex
RST_EMPLEADO.Source = "INSERT INTO TB_EMPLEADO VALUES(" & Txt_CvlEmpleado.Text & ",'" & Txt_Nombre.Text & "'," & CVL_N & ",'" & Cbo_Sexo.Text & "','" & Cbo_Puesto.Text & "'," & CVL_S & ",'" & Txt_Rfc.Text & "','" & Txt_Curp.Text & "')"
RST_EMPLEADO.ActiveConnection = ADOCONN
MsgBox "REGISTRO ALMACENADO", vbExclamation
RST_EMPLEADO.Open
desconectar
actualizacion
conex
RST_NIVEL.Source = "Update tb_empleado set nombre_COMPLETO = '" & Txt_Nombre.Text & "', curp ='" & Txt_Curp.Text & "',RFC='" & Txt_Rfc.Text & "',cvl_nivel=" & CVL_N & ",cvl_seccion=" & CVL_S & ",puesto='" & Cbo_Puesto.Text & "' WHERE cvl_empleado ='" & txt_AcEm.Text & "'"
RST_NIVEL.ActiveConnection = ADOCONN
RST_NIVEL.Open
MsgBox ("El registro se a modificado")

Txt_CvlEmpleado.Text = ""
Txt_CvlEmpleado.Visible = False
Txt_CvlEmpleado.Enabled = False

desconectar
seleccion****************
conex

RST_EMPLEADO.Source = "SELECT DISTINCT TB_EMPLEADO.NOMBRE_COMPLETO,TB_EMPLEADO.CURP,TB_EMPLEADO.RFC, TB_EMPLEADO.SEXO, TB_EMPLEADO.PUESTO, TB_EMPLEADO.CVL_NIVEL, TB_EMPLEADO.CVL_SECCION,TB_NIVEL.DESCRIPCION, TB_SECCIONES.DESCRIPCION AS Expr1 FROM TB_EMPLEADO INNER JOIN TB_NIVEL ON TB_EMPLEADO.CVL_NIVEL = TB_NIVEL.CVL_NIVEL CROSS JOIN TB_EMPLEADO TB_EMPLEADO_1 INNER JOIN TB_SECCIONES ON TB_EMPLEADO.CVL_SECCION = TB_SECCIONES.CVL_SECCION WHERE TB_EMPLEADO.CVL_EMPLEADO='" & Txt_CvlEmpleado.Text & "';"
RST_EMPLEADO.ActiveConnection = ADOCONN
RST_EMPLEADO.Open

If Not RST_EMPLEADO.EOF Then
Txt_Nombre.Text = RST_EMPLEADO.Fields("nombre_completo")
Txt_Curp.Text = RST_EMPLEADO.Fields("curp")
Txt_Rfc.Text = RST_EMPLEADO.Fields("RFC")
Cbo_Seccion.Text = RST_EMPLEADO.Fields("Expr1")
Cbo_Nivel.Text = RST_EMPLEADO.Fields("DESCRIPCION")
Cbo_Puesto.Text = RST_EMPLEADO.Fields("puesto")
Cbo_Sexo.Text = RST_EMPLEADO.Fields("sexo")
desconectar
Else

MsgBox "El Registro no Existe"
Txt_CvlEmpleado.Text = ""
Cmd_Aceptar.Caption = "Eliminar"
Screen.MousePointer = vbNormal
desconectar
*eliminacion
conex
RST_EMPLEADO.Source = "delete from tb_empleado where cvl_empleado=('" & Txt_CvlEmpleado.Text & "')"
RST_EMPLEADO.ActiveConnection = ADOCONN
RST_EMPLEADO.Open
desconectar