给你一个作参考,dim adocon as adodb.connection
dim dbname as string
....dbname = CurrentProject.FullName
adocon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbname & ";Persist Security Info=False"
adocon.Open