Boa Tarde,

 

Estou arrumando um sistema em vb e sql, só que coloquei o ADODC mas está dando o seguinte erro ao carregar:

* IM010 : [Microsoft][ODBC Driver Manager] Data Source Name Too Long

 

o código é :

 

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=" & Nome_Banco & ";Data Source=SERVIDOR"
        Adodc1.UserName = "sa"
        Adodc1.Password = "4190430511"
        Adodc1.CommandType = adCmdUnknown
        Adodc1.RecordSource = csel
               
        GRID.ClearFields
       
        Adodc1.Refresh
        
        GRID.ReBind
        If Adodc1.Recordset.RecordCount > 0 Then
           Adodc1.Recordset.MoveMax
           lbl_total_parc = Adodc1.Recordset.RecordCount
           If Adodc1.Recordset.RecordCount < 13 Then
              pct_borda_grid.Width = 4380
           Else
              pct_borda_grid.Width = 4620
           End If
           Adodc1.Recordset.MoveMin
           soma_valores
        End If

O q tem em csel ?

csel = "select id_lanc,dt_previsao,dt_recebimento,vl_receber from tb_conta_receber where " & _
               "nu_contrato = '" & Trim(frm_conta_receber_multipla.msk_nu_documento) & "' order by dt_previsao"

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=" & Nome_Banco & ";Data Source=SERVIDOR"

Data Source=SERVIDOR    ----> qual o nome do BD ?

 

 

o nome do banco tem 6 letras. ex:."Testea"