Option Explicit Dim db As ADODB。Connection Dim rs As ADODB。Recordset Private Sub Form_Load() Set db = New ADODB。Connection Set rs = New ADODB。
Recordset db。ConnectionString = "Provider=Microsoft。Jet。OLEDB。4。0;Data Source=" & App。Path & "\hxrkgl。mdb;Persist Security Info=False" db。
Open rs。CursorLocation = adUseClient rs。Open "select * from mdlk_sj ", db, adOpenStatic, adLockReadOnly Set DataGrid1。
DataSource = rs Text1 = rs。Fields(0) Text2 = rs。Fields(1) End Sub 。
答：可能软件有点问题。一般重新启动电脑会解决。详情>>
答：Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data S...详情>>
答：Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFile...详情>>
