FALHA DE LOGON DO USUARIO SA

Dim SQL As String
Dim con As ADODB.Connection, rs As ADODB.Recordset

Set con = New ADODB.Connection
con.Open [Ô]Provider=SQLOLEDB;Data Source=DANLEONHART-PC\SQLEXPRESS;Initial Catalog=BASE_USERS;Integrated Security=SSPI;[Ô]

SQL = [Ô]SELECT * FROM USUARIO[Ô]

  Set rs = New ADODB.Recordset
     rs.CursorLocation = adUseClient
     rs.Open SQL, con, adOpenKeyset, adLockReadOnly
     
      With DGrid1
          .Columns(0).Caption = [Ô]Nome :[Ô]
          .Columns(1).Caption = [Ô]Registro :[Ô]
          .Columns(2).Caption = [Ô]Senha :[Ô]
          .Columns(3).Caption = [Ô]Nível :[Ô]
          .Columns(0).Alignment = dbgLeft
          .Columns(1).Alignment = dbgCenter
          .Columns(3).Alignment = dbgCenter
          .Columns(0).Width = 4000
          .Columns(1).Width = 1000
          .Columns(2).Width = 1700
          .Columns(3).Width = 800
       
      Set .DataSource = rs
            .Refresh
End With