VBA <em>excel</em>的一个简单<em>编程</em>问题

做什么不好，偏要搞恶作剧

占座，静等高手～～～～
Sub 查找()
Set conn = CreateObject("adodb.connection")
Set Rst = CreateObject("ADODB.recordset")
conn.Open
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
& "D:/Database.accdb" ''后面是数据库路径 自己修改,看上去是07版本e5a48de588b67a686964616f336的,如果是03版本的将前面的字符串换成 "provider=Microsoft.jet.OLEDB.4.0;data source="
WITH Rst
.Open "select * from 基站信息 where 地点='" & [b3] & "'", conn, adOpenKeyset, adLockOptimistic
If .RecordCount >0 Then
[B4]=.FIELDS("经度")
[B5]=.FIELDS("纬度")
[B6]=.FIELDS("PROVINCE")
ELSE: MsgBox "找不到该名称"
End If
end with
conn.Close
Set conn = Nothing
End Sub

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Persist Security Info = False;extended properties='Excel 8.0;HDR=YES;IMEX=0';Data Source=“各科成绩表.xls"
If conn.State = adStateOpen Then
sSql = "select * from [sheet1$] where 姓名zd like '" & str1 & "' and 成绩 like '" & str2 & "'
rs.Open sSql, conn, 1, 1
If rs.BOF And rs.EOF Then
。。。。。。
首先用版VBA控件画好窗体，连接成绩表，再执行相应的操作。权。。