Dim mycnn As New ADODB.Connection
Dim myrst As New ADODB.Recordsetmycnn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\postzip.mdb"
myrst.CursorLocation = adUseClient
myrst.Open "select * from postzip ", mycnn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = myrst
Dim myrst As New ADODB.Recordsetmycnn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\postzip.mdb"
myrst.CursorLocation = adUseClient
myrst.Open "select * from postzip ", mycnn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = myrst
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货