请问,如何给组合框赋以行来源(是另一数据库中的一个表user中的字段值)

zdhsw

试了一下语句,但不成功,望高手指点!!,谢谢,
Private Sub Form_Load()
Dim mydb As Database

Dim rst As Recordset

Set mydb = DBEngine.OpenDatabase("c:\kfx.mdb", False, False, ";pwd=yang")

Set rst = mydb.OpenRecordset("user")
Me.Combo6.RowSource = "SELECT 用户名 FROM [c:\kfx.mdb].user"
'Me.Combo6.RowSource = rst("用户名")
rst.Close
mydb.Close
Set rst = Nothing
Set mydb = Nothing
End Sub

[此贴子已经被作者于2002-11-9 16:01:50编辑过]

QINGSOLI

1、你可以把你那个c:\kfx.mdb的密码给取消掉，然后只要一句
   Me.Combo6.RowSource = "SELECT 用户名 FROM user in 'c:\kfx.mdb';"

2、如果你实在不想取消，就把Combo6的类型改成值列表，用程序一个一个的加