[求助]调试时候出错了,帮帮把,
Private Sub Form_Load()
Dim MsgText As String
Dim intCount As Integer
Dim dateTemp As Date
If gintMode = 1 Then
Me.Caption = Me.Caption & "添加"
'初始化部门名称
txtSQL = "select DISTINCT ygdept from manrecord"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If Not mrc.EOF Then
Do While Not mrc.EOF
cboItem(0).AddItem Trim(mrc!ygdept)
mrc.MoveNext
Loop
cboItem(0).ListIndex = 0
红色部分被标志着有错误怎么办啊,高手帮帮吧,谢谢啊,急用啊,
