急 啊 急 啊

Private Sub Form_Load()
dtpRigDate.Value = Date

Set g_rs = g_db.OpenRecordset("bookType", dbOpenTable)
cboType.Clear
If g_rs.RecordCount > 0 Then
g_rs.MoveFirst
Do While Not g_rs.EOF
cboType.AddItem g_rs!类别代码 + "-" + g_rs!书籍类别
g_rs.MoveNext
Loop
End If
Set g_rs = Nothing
End Sub

是图书查询系统的