CODIGO FUENTE PARA CONEXION Y HABILITACION DE OBJETOS

' permite el manejo de base de datos a acces
Imports System.Data.OleDb
Imports System.Data
Public Class Frm_AgregarNuevo

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles PictureBox1.Click
Me.Close()
End Sub

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

EndSub

Private Sub CMB_BUSCAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMB_BUSCAR.Click
If Buscar_Registro(Tex_ID.Text) = True ThenMessageBox.Show("El Registro ya Existe")
Tex_ID.Focus()
Else

End If
interface_Datos()
End Sub
'funcion para conexion de base de datos
FunctionBuscar_Registro(ByVal xID As String) As Boolean
'1. convertir cadena en numerico
Dim ID As Double
ID = Convert.ToInt32(xID)

' conexion
Dim conexion As New OleDbConnectionconexion.ConnectionString = "provider= microsoft.ace.oledb.12.0; Data Source =D:\\sistema empresa\\base de datos del proyecto empresa\\BBDDmaestra.accdb; Persist security Info = False"

'cadena sql
Dim cadenaSql As String = "SELECT * FROM personal WHERE id = " & ID

' adaptador de Sql
Dim Adaptador As New OleDbDataAdapter(cadenaSql, conexion)

' data setDim Ds As New DataSet ' almacena los datos

'llenar el dataset
conexion.Open() 'abre puente de conexion con access
Adaptador.Fill(Ds) 'adaptadorr llena con datos el dataset
conexion.Close() ' Cierra la Conexion de la base de dato

'contar registro
'Este codigo cuenta las filas de la tabla en la base de Datos
If(Ds.Tables(0).Rows.Count = 0) Then
'No Encontro Registro
Return False

Else
' Si Encontro Registro
'Cargar los textos del formulario con la información encontrada...