Problema botón buscar y rellenar campos

[aid_val]

en tus metodos conecta() y desconecta()

en lugar de ser publicos tienen que ser compartidos
es por ello que nunca recibe la cadena de conexión

'Conectar a la bbdd
Shared Sub Conecta()
Cx = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=GESPRICE.accdb;")
Cx.Open()
End Sub

'Desconecta el programa de la bbdd
Shared Sub Desconecta()
If Cx.State = ConnectionState.Open Then
Cx.Close()
End If
End Sub

Pruebalo y me cuentas que paso?