如何将access记录表中的一项变成组合框中的项目呢？

其实VB中有一个数据库绑定控件是可以直接实现你要的效果,它是DBCombo控件.

一般的方法是读取该字段的数据,再插入到组合框中
Dim con As New ADODB.Connection, rs As New ADODB.Recordset
Dim num As Long, n As Long
con.ConnectionString = ConStr1
con.Open
rs.Open "Qbm", con, 3, 3
If rs.EOF Then MsgBox "请先导入部门数据!", vbCritical, "警告": End
rs.MoveLast
num = rs.RecordCount - 1
rs.MoveFirst
For n = 0 To num
combo.additem rs(0)
rs.MoveNext
Next
rs.Close: Set rs = Nothing
con.Close: Set con = Nothing
Cmb.ListIndex =0

如果满意我的回答,请给我加分,谢谢

先记录还后保存，然后再填写就OK勒。
待你再打开就可以看见记录在组合框中显示。