Código

Imports System.Data.OleDb
Public class frmEmpleados
Dim conexión as OleDbConnection
Dim comandos as OleDbCommand
‘Creando conexión con la base de datos
Try
Conexión.ConnectionString =(Cadena de Conexión)
Conexión.open()
MsgBox.show(“Conexión realizada con éxito”, vbInformation, “Correcto”)
Catch ex As Exception
MsgBox(ex.Message)
End Try
‘Usamos insertarpara añadir valores a la tabla
Try
Comandos = New OleDbCommand(INSERT INTO table (nit, nrc, periodo, codigo, cargo &vbCrlf &
Nombre, codigo, sueldobase, dui, afiliacion, nup &vbCrlf &Dirección, teléfono, correo)

‘Para agregar valores en los parámetros de las cajas de texto del formulario

comandos.Parameters.AddWithValue("@NIT", txtNit.text)comandos.Parameters.AddWithValue("@NRC", txtNRC.text)
comandos.Parameters.AddWithValue("@periodo", txtperiodo.text)
comandos.Parameters.AddWithValue("@codigo", txtcodigo.text)comandos.Parameters.AddWithValue("@cargo", txtcargo.text)
comandos.Parameters.AddWithValue("@nombre", txtnombre.text)
comandos.Parameters.AddWithValue("@sueldoBase",txtSueldoBase.text)
comandos.Parameters.AddWithValue("@dui",txtdui.text)
comandos.Parameters.AddWithValue("@afiliacion", txtafiliacion.text)comandos.Parameters.AddWithValue("@nup", txtnup.text)
comandos.Parameters.AddWithValue("@dirección", txtdirección.text)
comandos.Parameters.AddWithValue("@telefono", txttelefono.text)comandos.Parameters.AddWithValue("@correo", txtcorreo.text)

‘Para que se ejecute la codificación

commandos.ExecuteNonQuery()

MsgBox.show(“Empleado agregado exitosamente”, vbInformation,“Empleados”)
‘Se limpian los campos del formulario
Txtnit.clear()
txtnrc.clear()
txtperiodo.clear()
txtcodigo.clear()
txtcargo.clear()
txtnombre.clear()
txtsueldobase.clear()
txtdui.clear()...