ADO Beginners Tutorial

[si_the_geek]

You need to add the part in bold (where *** is your password):

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source= c:\my documents\DB1.mdb[b];User Id=admin;Password=***;[/b]"