如何在FORM里显示DB1中的两张表的内容?
如何在FORM里显示DB1中的两张表的内容?
Private Sub Form_Load()
Command2.Visible = False
Command12.Enabled = False
Command13.Visible = False
Dim ConString As String
ConString = "Provider=Microsoft.Jet.OleDb.4.0;Persist Security Info = False;" _
& "Data Source =" & App.Path & "\db1.mdb;Jet OleDb:DataBase Password=123456"
Set Conn = CreateObject("ADODB.Connection")
With Conn
.ConnectionString = ConString
.Open
End With
Rst.CursorLocation = adUseClient
Rst.Open "Select * From fl2", Conn, adOpenKeyset, adLockPessimistic, adCmdText
If Rst.RecordCount > 0 Then
n.Text = Rst.Fields("n").Value & ""
。。。
。。。
。。。
???