Se il test risulterà positivo la funzione tornerà "true", altrimenti "false".
In caso di errore verrà prospettato un messaggio a video.
Function testConnectionDb() On Error GoTo errorDB DoEvents Dim msgError, strConDbAccess As String 'connessione a db ms access strConDbAccess = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & "c:\db.mdb" 'connessione a db ms sqlserver 'strConDbSqlServer = "Driver={SQL Server};Server=" & dbServerSqlServer _ '& ";Database=" & dbNameDbSqlServer & ";Uid=" & dbIdDbSqlServer _ & ";Pwd=" & dbPwdDbSqlServer & ";" Set Conn = New ADODB.Connection With Conn .CommandTimeout = 20 .CursorLocation = adUseClient .Open strConDbAccess '.Open strConDbSqlServer End With If Conn.State = 1 Then Conn.Close testConnectionDb = True Else testConnectionDb = False End If Exit Function errorDB: msgError = "Modulo Avvio DataBase" & Chr(13) & _   "Numero Errore: " & Err.Number & " Descrizione: " & Err.Description MsgBox msgerrore, vbCritical + vbOKOnly, _   "Errore di Connessione al DataBase!" End Function