Dim con As New ADODB.Connection con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;" con.Open Set cat.ActiveConnection = con