Gracias Nuevamente, pero me subraya el texto y me dice lo siguiente:
Una instrucción "Return"en Sub o Set no puede devolver un valor.
Lo he puesto tal cual:
Cita: Public Sub conectar()
Dim ruta2 As String
sql = New OleDb.OleDbCommand
sql.Connection = conexionBD
ruta2 = Application.StartupPath & "\bdDatabase.mdb;Jet OLEDB:Database Password=alba;"
'conexionBD = New OdbcConnection("dsn=RedUtility;uid=root;pwd=alba;" )
conexionBD = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0; Data Source=" & ruta2)
conexionBD.Open()
Return conexionBD
End Sub
Gracias nuevamente
Una de las pruebas que he realizado es comentar la linea de conexionBD.Open() de tal manera que el programa me arranca sin errores, pero a la hora de buscar algo en la tabla perteneciente me pide conectarme, pero me sale error todo el rato!