菜鸟问：编译时找不到工程或库~~~~~``

[oh88]

Private Sub Command1_Click() ‘这段有错吗55555555555555555555555
cd1.FileName = ""
cd1.ShowOpen
If cd1.FileName <> "" Then
Text1.Text = cd1.FileName
List1.Clear
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Set db = DBEngine.Workspaces(0).OpenDatabase(Text1.Text)
For Each tbl In db.TableDefs
If Left(tbl.Name, 4) <> "MSys" And Left(tbl.Name, 4) <> "USys" Then
List1.AddItem tbl.Name
End If
Next
If List1.ListCount > 0 Then
List1.ListIndex = 0
dbfn = Text1.Text
Else
Text1.Text = ""
MsgBox Chr(13) + cd1.FileName + " " + Chr(13) + Chr(13) + "此数据库中没有数据表！ ", vbCritical
End If
End If


End Sub

[oh88]

太感谢你了~~~~~~：））））））））））

[饮水需思源]

'这样试试：
新建一VB工程，选择“VB企业版控件”，将所有窗体与模块引入，在新工程试试能否正常使用