Private Sub Form_Load() Set adocon = New ADODB.Connection Set adorst = New ADODB.Recordset '建立连接 adocon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb"End Sub Private Sub display() Text1.Text = cn(adorst.Fields("LD").value) Text2.Text = cn(adorst.Fields("LM").value) Text3.Text = cn(adorst.Fields("KL").value) End Sub你都没打开表,光打开库了,怎么连接啊!!!
Set adocon = New ADODB.Connection
Set adorst = New ADODB.Recordset
'建立连接
adocon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb"End Sub
Private Sub display()
Text1.Text = cn(adorst.Fields("LD").value)
Text2.Text = cn(adorst.Fields("LM").value)
Text3.Text = cn(adorst.Fields("KL").value)
End Sub你都没打开表,光打开库了,怎么连接啊!!!
换个数据库,再试一下