VB编译时，提示未找到方法或数据成员，哪位高手帮我看看。

Question

编译时，提示未找到方法或数据成员，哪位高手帮我看看。出错信息提示在If js.text = "4" Then 
    Adodc3.RecordSource = "select * from 日点单信息表 where 日点单信息表.单据号='" + Trim(main_ysyf_lsgzcx.Adodc1.Recordset.Fields("单据号")) + "'"中的“.Recordset”上。 
以下是我的程序： Dim rs1 As New ADODB.Recordset 
Dim s As String Private Sub Form_Activate() 
  If js.text = "1" Then 
    Adodc1.RecordSource = "select * from 月点单信息表 where 月点单信息表.单据号='" + Trim(main_czgl_yjzfx.Adodc2.Recordset.Fields("结帐单据号")) + "'" 
    Adodc1.Refresh 
    Set DataGrid2.DataSource = Adodc1 
    If Adodc1.Recordset.RecordCount > 0 Then 
        rs1.Open "select * from 房间台号信息表 where 房间台号信息表.编号='" + Trim(Adodc1.Recordset.Fields("房台编号")) + "'", cnn, adOpenKeyset, adLockOptimistic 
        If rs1.RecordCount > 0 Then 
          Label4(0).Caption = Trim(rs1.Fields("编号")) 
          Label4(1).Caption = Trim(rs1.Fields("房台名称")) 
          Label4(2).Caption = Trim(rs1.Fields("类型说明")) 
          Label4(3).Caption = Trim(rs1.Fields("部门")) 
          Label4(4).Caption = Trim(rs1.Fields("服务费")) 
          Label4(5).Caption = Trim(rs1.Fields("简要说明")) 
        End If 
        rs1.Close 
        Labbh.Caption = Trim(Adodc1.Recordset.Fields("服务员编号")) 
        Labxm.Caption = Trim(Adodc1.Recordset.Fields("服务员姓名")) 
        Labdjh.Caption = Trim(Adodc1.Recordset.Fields("单据号")) 
        Adodc2.RecordSource = "select 状态 as 状态1,sum(数量)as 数量1,sum(金额)as 金额合计 from 月点单信息表 where 月点单信息表.单据号='" + Trim(main_czgl_yjzfx.Adodc2.Recordset.Fields("结帐单据号")) + "'group by 状态" 
        Adodc2.Refresh 
        If Adodc2.Recordset.RecordCount > 1 Then 
          Label2(0).Caption = Adodc2.Recordset.Fields(1) 
          Label2(1).Caption = Format(Adodc2.Recordset.Fields(2), "0.00") 
          If Adodc2.Recordset.EOF = False Then Adodc2.Recordset.MoveNext 
          Label2(2).Caption = Adodc2.Recordset.Fields(1) 
          Label2(3).Caption = Format(Adodc2.Recordset.Fields(2), "0.00") 
        Else 
          If Trim(Adodc2.Recordset.Fields("状态1")) = "点单" Then 
              Label2(0).Caption = Adodc2.Recordset.Fields(1) 
              Label2(1).Caption = Format(Adodc2.Recordset.Fields(2), "0.00") 
              Label2(2).Caption = "0" 
              Label2(3).Caption = "0.00" 
            Else 
              Label2(0).Caption = "0" 
              Label2(1).Caption = "0.00" 
              Label2(2).Caption = Adodc2.Recordset.Fields(1) 
              Label2(3).Caption = Format(Adodc2.Recordset.Fields(2), "0.00") 
          End If 
      End If 
    End If 
End If If js.text = "2" Then 
    Adodc3.RecordSource = "select * from 点单历史表 where 点单历史表.单据号='" + Trim(main_czgl_njzfx.Adodc1.Recordset.Fields("结帐单据号")) + "'" 
    Adodc3.Refresh 
    Set DataGrid2.DataSource = Adodc3 
    If Adodc3.Recordset.RecordCount > 0 Then 
        rs1.Open "select * from 房间台号信息表 where 房间台号信息表.编号='" + Trim(Adodc3.Recordset.Fields("房台编号")) + "'", cnn, adOpenKeyset, adLockOptimistic 
        If rs1.RecordCount > 0 Then 
          Label4(0).Caption = Trim(rs1.Fields("编号")) 
          Label4(1).Caption = Trim(rs1.Fields("房台名称")) 
          Label4(2).Caption = Trim(rs1.Fields("类型说明")) 
          Label4(3).Caption = Trim(rs1.Fields("部门")) 
          Label4(4).Caption = Trim(rs1.Fields("服务费")) 
          Label4(5).Caption = Trim(rs1.Fields("简要说明")) 
        End If 
        rs1.Close 
        Labbh.Caption = Trim(Adodc3.Recordset.Fields("服务员编号")) 
        Labxm.Caption = Trim(Adodc3.Recordset.Fields("服务员姓名")) 
        Labdjh.Caption = Trim(Adodc3.Recordset.Fields("单据号")) 
        Adodc4.RecordSource = "select 状态 as 状态1,sum(数量)as 数量1,sum(金额)as 金额合计 from 点单历史表 where 点单历史表.单据号='" + Trim(main_czgl_njzfx.Adodc1.Recordset.Fields("结帐单据号")) + "'group by 状态" 
        Adodc4.Refresh 
        If Adodc4.Recordset.RecordCount > 1 Then 
          Label2(0).Caption = Adodc4.Recordset.Fields(1) 
          Label2(1).Caption = Format(Adodc4.Recordset.Fields(2), "0.00") 
          If Adodc4.Recordset.EOF = False Then Adodc4.Recordset.MoveNext 
          Label2(2).Caption = Adodc4.Recordset.Fields(1) 
          Label2(3).Caption = Format(Adodc4.Recordset.Fields(2), "0.00") 
        Else 
          If Trim(Adodc4.Recordset.Fields("状态1")) = "点单" Then 
              Label2(0).Caption = Adodc4.Recordset.Fields(1) 
              Label2(1).Caption = Format(Adodc4.Recordset.Fields(2), "0.00") 
              Label2(2).Caption = "0" 
              Label2(3).Caption = "0.00" 
            Else 
              Label2(0).Caption = "0" 
              Label2(1).Caption = "0.00" 
              Label2(2).Caption = Adodc4.Recordset.Fields(1) 
              Label2(3).Caption = Format(Adodc4.Recordset.Fields(2), "0.00") 
          End If 
      End If 
    End If 
End If If js.text = "3" Then 
    Adodc5.RecordSource = "select * from 日点单信息表 where 日点单信息表.单据号='" + Trim(main_ysyf_gzgl.Adodc1.Recordset.Fields("单据号")) + "'" 
    Adodc5.Refresh 
    Set DataGrid2.DataSource = Adodc5 
    If Adodc5.Recordset.RecordCount > 0 Then 
        rs1.Open "select * from 房间台号信息表 where 房间台号信息表.编号='" + Trim(Adodc5.Recordset.Fields("房台编号")) + "'", cnn, adOpenKeyset, adLockOptimistic 
        If rs1.RecordCount > 0 Then 
          Label4(0).Caption = Trim(rs1.Fields("编号")) 
          Label4(1).Caption = Trim(rs1.Fields("房台名称")) 
          Label4(2).Caption = Trim(rs1.Fields("类型说明")) 
          Label4(3).Caption = Trim(rs1.Fields("部门")) 
          Label4(4).Caption = Trim(rs1.Fields("服务费")) 
          Label4(5).Caption = Trim(rs1.Fields("简要说明")) 
        End If 
        rs1.Close 
        Labbh.Caption = Trim(Adodc5.Recordset.Fields("服务员编号")) 
        Labxm.Caption = Trim(Adodc5.Recordset.Fields("服务员姓名")) 
        Labdjh.Caption = Trim(Adodc5.Recordset.Fields("单据号")) 
        Adodc6.RecordSource = "select 状态 as 状态1,sum(数量)as 数量1,sum(金额)as 金额合计 from 日点单信息表 where 日点单信息表.单据号='" + Trim(main_ysyf_gzgl.Adodc1.Recordset.Fields("单据号")) + "'group by 状态" 
        Adodc6.Refresh 
        If Adodc6.Recordset.RecordCount > 1 Then 
          Label2(0).Caption = Adodc6.Recordset.Fields(1) 
          Label2(1).Caption = Format(Adodc6.Recordset.Fields(2), "0.00") 
          If Adodc4.Recordset.EOF = False Then Adodc6.Recordset.MoveNext 
          Label2(2).Caption = Adodc6.Recordset.Fields(1) 
          Label2(3).Caption = Format(Adodc6.Recordset.Fields(2), "0.00") 
        Else 
          If Trim(Adodc6.Recordset.Fields("状态1")) = "点单" Then 
              Label2(0).Caption = Adodc6.Recordset.Fields(1) 
              Label2(1).Caption = Format(Adodc6.Recordset.Fields(2), "0.00") 
              Label2(2).Caption = "0" 
              Label2(3).Caption = "0.00" 
            Else 
              Label2(0).Caption = "0" 
              Label2(1).Caption = "0.00" 
              Label2(2).Caption = Adodc6.Recordset.Fields(1) 
              Label2(3).Caption = Format(Adodc6.Recordset.Fields(2), "0.00") 
          End If 
      End If 
    End If 
End If If js.text = "4" Then 
    Adodc3.RecordSource = "select * from 日点单信息表 where 日点单信息表.单据号='" + Trim(main_ysyf_lsgzcx.Adodc1.Recordset.Fields("单据号")) + "'" 
    Adodc3.Refresh 
    Set DataGrid2.DataSource = Adodc3 
    If Adodc3.Recordset.RecordCount > 0 Then 
        rs1.Open "select * from 房间台号信息表 where 房间台号信息表.编号='" + Trim(Adodc3.Recordset.Fields("房台编号")) + "'", cnn, adOpenKeyset, adLockOptimistic 
        If rs1.RecordCount > 0 Then 
          Label4(0).Caption = Trim(rs1.Fields("编号")) 
          Label4(1).Caption = Trim(rs1.Fields("房台名称")) 
          Label4(2).Caption = Trim(rs1.Fields("类型说明")) 
          Label4(3).Caption = Trim(rs1.Fields("部门")) 
          Label4(4).Caption = Trim(rs1.Fields("服务费")) 
          Label4(5).Caption = Trim(rs1.Fields("简要说明")) 
        End If 
        rs1.Close 
        Labbh.Caption = Trim(Adodc3.Recordset.Fields("服务员编号")) 
        Labxm.Caption = Trim(Adodc3.Recordset.Fields("服务员姓名")) 
        Labdjh.Caption = Trim(Adodc3.Recordset.Fields("单据号")) 
        Adodc4.RecordSource = "select 状态 as 状态1,sum(数量)as 数量1,sum(金额)as 金额合计 from 点单历史表 where 点单历史表.单据号='" + Trim(main_czgl_njzfx.Adodc1.Recordset.Fields("结帐单据号")) + "'group by 状态" 
        Adodc4.Refresh 
        If Adodc4.Recordset.RecordCount > 1 Then 
          Label2(0).Caption = Adodc4.Recordset.Fields(1) 
          Label2(1).Caption = Format(Adodc4.Recordset.Fields(2), "0.00") 
          If Adodc4.Recordset.EOF = False Then Adodc4.Recordset.MoveNext 
          Label2(2).Caption = Adodc4.Recordset.Fields(1) 
          Label2(3).Caption = Format(Adodc4.Recordset.Fields(2), "0.00") 
        Else 
          If Trim(Adodc4.Recordset.Fields("状态1")) = "点单" Then 
              Label2(0).Caption = Adodc4.Recordset.Fields(1) 
              Label2(1).Caption = Format(Adodc4.Recordset.Fields(2), "0.00") 
              Label2(2).Caption = "0" 
              Label2(3).Caption = "0.00" 
            Else 
              Label2(0).Caption = "0" 
              Label2(1).Caption = "0.00" 
              Label2(2).Caption = Adodc4.Recordset.Fields(1) 
              Label2(3).Caption = Format(Adodc4.Recordset.Fields(2), "0.00") 
          End If 
      End If 
    End If 
End If 
Label2(4).Caption = Val(Label2(0).Caption) + Val(Label2(2).Caption) 
Label2(5).Caption = Format(Val(Label2(1).Caption) + Val(Label2(3).Caption) + Val(Label4(4).Caption), "0.00") 
End Sub 
Private Sub Form_Unload(Cancel As Integer) 
  main_czgl_yjzfx.Enabled = True 
  main_czgl_njzfx.Enabled = True 
  main_ysyf_gzgl.Enabled = True 
  main_ysyf_lsgzcx.Enabled = True 
End Sub