Visual Basic - Ado con SQL

hola estoy tratando de conectarme y se me cae al leer la tabla, alguien me puede ayudar

esta es mi conexion

todo esto esta en la global
Public bdsvs As ADODB.Connection 'DATA de SQL server

Sub Conectar_bd()
Dim sAlgo As String
Dim cmd As New ADODB.Command

sSQLServer = GL_Server
Set bdsvs = New ADODB.Connection
With bdsvs
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=BDSVS;Data Source=" & sSQLServer & ";Connect Timeout=15"
.CursorLocation = adUseClient
.Open
End With
End Sub

esto esta en un form

Dim rsUsuarios As New ADODB.Recordset

Set cmd = New Command
cmd.CommandText = "Select * from usuarios where usuarios.identifi = '" & Trim(in_usuario) & "' "
cmd.CommandType = adCmdText
Set cmd.ActiveConnection = bdsvs

AL ENTRAR ACA SE CAE
Set rsUsuarios = cmd.Execute
If rsUsuarios.EOF Then

Publicic conex As ADODB.Connection
Public StringSQL as string
Public ConnectionString as string
Public consulta As ADODB.Recordset

ConnectionString1 = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=BDSVS;Data Source=" & sSQLServer & ";Connect Timeout=15"

' Yo utilizo este string de conección y me funciona perfecto...
ConnectionString2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sSQLServer & "

StringSQL="Select * from usuarios where usuarios.identifi = '" & Trim(in_usuario) & "' "

Public Sub Conectar_bd()
' Abre la conexión
Set conex = New Connection
conex.Open ConnectionString1
End If
End Sub

'En el formulario

Set consulta = New Recordset
consulta.CursorLocation = adUseClient

' Abrir la Consulta
consulta.Open StringSQL, conex, adOpenForwardOnly, adLockReadOnly

Espero te sirva ¡PRECIONSA!...