Hi

Ob this line
If IsDatabaseAvailable(strDB)
it is giving me this error " ByRef argument type mismatch"

strDB = "Jaggan" ' Database Name
If IsDatabaseAvailable(strDB) Then
cnn1.Open "Driver=SQL Server;Server=" & ServerName & ";Database=" & strDatabase & ";uid=" & uid & ";pwd=" & pwd & ";"
Endif

Private Function IsDatabaseAvailable(strDatabase As String) As Boolean
Dim conFind As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL, m_database As String
Set conFind = New ADODB.Connection
Set rs = New ADODB.Recordset

conFind.ConnectionString = "Provider = sqloledb;Data Source=" & ServerName & ";uid=" & uid & ";pwd=" & pwd
conFind.Open

m_database = "Test"
strSQL = "SELECT Name FROM master..sysdatabases WHERE Name = '" & m_database & "'"
rs.Open strSQL, conFind, adOpenStatic, adLockOptimistic
If Not (rs.EOF And rs.BOF) Then
IsDatabaseAvailable = True
End If
rs.Close
Set rs = Nothing
conFind.Close
Set conFind = Nothing
End Function

Thanks