Dim Dbase1 As Database
Dim UserRs1 As Recordset
Dim conn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim temp(9)
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Work.mdb;"
rs1.Open "Select Distinct * from UserA ",conn1,adOpenKeyset,
adLockPessimistic
Set drtOrder.DataSource = conn1.Execute("select distinct * from UserA where Name = " & txtField(1).Text)
drtOrder.Show vbModal
rs1.Close
conn1.Close
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(3) 人氣()