Sql/vb

Public Function BddConnection() As Boolean
Dim Cnx As ADODB.Connection
Dim CnxStrg As String

Set Cnx = New ADODB.Connection

    If Cnx.State = adStateOpen Then
       BddConnection = False
       Exit Function
    Else                       
      CnxStrg = "Provider=SQLOLEDB.1;" & _
                        "Persist Security Info=True;" & _
                        "Integrated Security=SSPI;Initial Catalog= maBase;" & _
                        "Data Source= monServeur"
           
      Cnx.ConnectionString = CnxStrg
      Cnx.CursorLocation = adUseClient
      On Error Resume Next
      Cnx.Open
         If Err.Number > 0 Or Cnx.State = adStateClosed Then
           BddConnection = False
           Exit Function
        End If

    BddConnection = True

End If
End Function