Cuando uso este codigo de conexion en ASP, me funciona sinproblemas, pero cuando intento usarlo en VB me arroja un error :
"No se ha definido el tipo definido por el usuario" apuntando directamente a la linea en negrita
Que será lo que sucede?
Dim id, pwd, server, basestring As String
Dim basedatos As String
Dim Coneccion As String
Dim Rs As Recordset
usuario = "mi_usuario"
pwd = "mi_password"
servidor = "mi_servidor"
basestring = "mi_base"
Set basedatos = New ADODB.Connection
Coneccion = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & usuario & ";Pwd=" & pwd & ";Initial Catalog=" & basestring & ";Data Source=" & servidor
basedatos.ConnectionString = Coneccion
basedatos.Open
Sql = "SELECT * FROM mi_tabla (NoLock) "
Set Rs = New ADODB.Recordset: Rs.Open Sql, basedatos, adOpenDynamic, adLockOptimistic