请教关于VB的问题

新手学VB的，请教大虾们：源码运行时候报“未找到方法或数据成员”是怎么回事，怎么来处理啊。
  源码如下：
Private Sub Command1_Click() //就在这个地方报的错误
Dim date1 As String
Dim date2 As String
Dim sql As String
date1 = "" & Trim(Text2.Text & " ") & ""
date2 = "" & Trim(Text3.Text & " ") & ""
If Check1.Value = vbChecked Then
sql = "测点点号='" & Trim(Text1.Text & " ") & "'"
End If
If Check2.Value = vbChecked Then
   If Trim(sql) = "" Then
   sql = "监测日期 between #" & date1 & "#" & " and " & "#" & date2 & "#"
   Else
   sql = sql & "and 监测日期 between #" & date1 & "#" & " and " & "#" & date2 & "#"
   End If
End If
Adodc1.RecordSource = "select * from 地表沉降数据表 where " & sql
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Dim i, k As Integer
Dim j As Integer
Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object
Set ex = CreateObject("Excel.application")
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")
ex.Visible = True
For k = 1 To DataGrid1.Columns.Count
exsheet.Cells(1, k) = DataGrid1.Columns(k - 1).Caption
Next k
For i = 1 To Adodc1.Recordset.RecordCount
For j = 0 To DataGrid1.Columns.Count - 1
exsheet.Cells(i + 1, j + 1) = Adodc1.Recordset(j)
Next j
Adodc1.Recordset.MoveNext
Next i
Position = App.Path + "\sample.xls"
exwbook.SaveAs Position
ex.Quit
Set ex = Nothing
End Sub

--------------------编程问答-------------------- 确认哪一句错误 --------------------编程问答-------------------- Adodc1.RecordSource = "select * from 地表沉降数据表 where " & sql

Adodc1.RecordSource = "select * from 地表沉降数据表 where &sql "
试试 --------------------编程问答-------------------- 是在这个句话报出来的。查了些资料。说是没有引入，什么类库了啥的，我引入了啊。。。 --------------------编程问答-------------------- Adodc1.RecordSource = "select * from 地表沉降数据表 where " & sql
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset --------------------编程问答-------------------- 从过程开头处加断点, 运行到断点后按F8单步执行,看到底是哪一句的问题

补充：VB ,  数据库(包含打印，安装，报表)