准备工作: 建立数据库 E:\operation.accdb； 建数据表:selection；数据表中,建字段:User,Password,并添加一条记录

点工程->引用 选中Microsoft Activex Data Objects 6.1 Library（注：选择最高版本就行）

1、access数据库关联下拉表

首先添加控件:添加一个文本框,一个命令按钮，一个combo下拉框

Private Sub Command1_Click()

Dim Conn As New ADODB.Connection '创建ADODB对象，用于连接数据库操作
Dim Rs As New ADODB.Recordset  '创建ADODB对象，用于返回取得的数据库内容
Dim str As String

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\option.mdb"

str = Text1.Text
sql = "select Password from " & str & ""
Rs.Open sql,Conn,1,3
For i = 0 To Rs.RecordCount - 1
Combo1.List(i) = Rs("Password")
Rs.MoveNext
Next
Conn.Close
End Sub

首先创建两个窗体，Form1和Form2，在Form1中添加控件：一个命令按钮。

Private Sub Command1_Click()

Form2.Show
Unload Me
End Sub

如果，InStr(str1,str2) > 0 说明：str1包含str2