Salut,
 
 
Eroarea afisata este urmataorea :
_____________________________________________________________________________
  Could not open the database:

  [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified.

  Program Aborted.
_____________________________________________________________________________



Codul in care apare este urmatorul:
_____________________________________________________________________________
        Do Until OpenDatabase
            On Error Resume Next
            CSConnection = New ADODB.Connection
            CSConnection.CursorLocation = ADODB.CursorLocationEnum.adUseClient
            CSConnection.Open("uid=sa;" & _
                              "pwd=cucu666bau;" & _
                              "server=192.168.3.5\MSDE2000;" & _
                              "driver={SQL Server};" & _
                              "database=GLUCFGAPP0003;")
            If CBool(Err.Number) Then GoTo Err_LBL
            SSConnection = New ADODB.Connection
            SSConnection.CursorLocation = ADODB.CursorLocationEnum.adUseServer
            SSConnection.Open(CSConnection.ConnectionString)
            If CBool(Err.Number) Then
Err_LBL:
                AUxS = Err.Description
                CSConnection = Nothing
                SSConnection = Nothing
                MsgBox("Could not open the database:" & vbCrLf & vbCrLf & AUxS & vbCrLf & vbCrLf & "Program aborted.", MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical, "Error")
                Exit Do
            Else
                OpenDatabase = True
            End If
        Loop
_____________________________________________________________________________

 Multumesc inca o data pentru ajutor, Stefan