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

Question

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

Answer 1

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