Visual Basic para Aplicaciones - Euro al conectar con bbdd

Dim cnt As New ADODB.Connection

Dim rst As New ADODB.Recordset

strDB = "C:\Users\jose\Desktop\T.accdb"

Set cnt = Nothing

cnt.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _

           "Data Source=" & strDB & ";"

sqlstring = “SELECT NOMBRE FROM TABLA_NOMBRE”

Set rst=Nothing

Rst.Open sqlstring, cnt

‘ despues hay mucho código convirtiendo y comprobando campos. Usando GetRows, UBound,  Transpose… lo usuarl

Rst.close

Set rst=Nothing

Cnt.close

Set  cnt = Nothing