怎样用代码建立数据库连接?
Private Sub Form_Activate()
Data1.DatabaseName = "kxqa.mdb"
Data1.Connect = ";pwd=" & 888
Data1.RecordSource = "题库"
q6.DataSource = Data1
q6.DataField = "备选1"
End Sub
q6.DataSource = Data1
q6.DataField = "备选1"
运行到这两行时,总是datasource变反白,提示未找到方法或数据成员