Configurar Conexión de Ruta de BD

La base de datos debe copiarse dentro de la carpeta Bin/debug de la aplicación:

Archivo de configuración.

Imports System.Data.OleDb

Public Class conexion

Public Shared conex As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _

"Data source=" & ruta() & "\agenda.accdb;"

Public Shared CN As New OleDbConnection(conexion.conex)

Public Shared Function Listar(ByVal consulta As String) As DataTable

Dim adapter As New OleDbDataAdapter(consulta, conexion.conex)

Dim tabla As New DataTable

adapter.Fill(tabla)

Return tabla

End Function

Public Shared Sub Insertar(ByVal consulta As String)

Dim cmd As New OleDbCommand(consulta, conexion.CN)

conexion.CN.Open()

cmd.ExecuteNonQuery()

conexion.CN.Close()

End Sub

Public Shared Sub LlenarCombo(ByVal CB As ComboBox, ByVal sql As String, ByVal valor As String, ByVal nombre As String)

cb.DataSource = Listar(sql)

cb.DisplayMember = nombre

cb.ValueMember = valor

End Sub

Public Shared Function ruta() As String

Return System.AppDomain.CurrentDomain.BaseDirectory()

End Function

End Class