[RESOLVED] - Database Connection Validity

[mik706]

Can anyone help me with this?

I am looking to prove that a database connection is valid before i try and access the database for information.
I could just access a table and select all the record which if the select completed without and error would tell me that the connection is OK, but i would like to do it more efficiently so if you have any suggestions please let me know.

Thanks in advance.

[mel_flynn]

    Set Cn = New ADODB.Connection
    Cn.CursorLocation = adUseClient
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & Startup.AppPath & "data.mdb"
    MsgBox Cn.State

Connected sucessfully if 1 is returned