Private Sub Form_Load() '初始化 Login.Caption = "登录" txtDate = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" DTPicker1.Value = Date Call pd If datacount = 0 Then Operater1 = "无" Combo1.Enabled = False txtPassword.Enabled = False cmdOK.Enabled = True Text1.Visible = True Else operater.Recordset.MoveFirst Do While operater.Recordset.EOF = False Combo1.AddItem operater.Recordset.Fields(0) operater.Recordset.MoveNext Loop Text1.Visible = False End If End Sub 请教各位为何运行时会弹出“找不到工程或库的错误，盼复，深谢！

可能是对象库引用丢失了，你查看工程->引用里看看。

那应该引用那个对象呢，我发现程序里的系统函数都是这样的“找不到工程和库”的错误，请指点指点

对,好像是对象丢失了,我查了一下是这一个对象丢失"Microsoft ADO Ext.2.7 For DDL and securyt"那应该怎么办呢????????

你用了ADOX吗？
换一个低版本的。