Ich habe hier ein Beispiel, funktioniert leider nicht.
Set connection = Server.CreateObject("ADODB.Connection")
connection.open "meinDB", "ich", "meinpasswort"
If conn.State <> adStateOpen Then
response.write("Verbindung fehlgeschlagen.")
response.end
End If