求教，利用VB查询Access中的内容

Public Sub nAccess(m As Long) '添加文件代码，名称，时间和路径到数据库
  Dim Temp1, Temp2, Temp3, Temp4 As String
  Set Conn = CreateObject("ADODB.Connection")
  Set Connc = CreateObject("ADODB.Connection")
  Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\passdata.mdb"
  Conn.Open Connstr
  Connc.Open Connstr
  Set Rs = CreateObject("adodb.recordset")
  Set Rsc = CreateObject("adodb.recordset")
  SQL = "Select * From NewF where fileC = '" & Form1.List1.List(m) & "'"
  SQLc = "Select * From nReaF where fileC = '" & Form1.List1.List(m) & "'"
  Rs.Open SQL, Conn, 1, 2
  Rsc.Open SQLc, Connc, 1, 2
  If Rsc.EOF = True Then '如果在已读的表中找不到该代码
    If Rs.EOF = True Then '如果在新文件的表中找不到该代码
      Call Addone(m)
    Else '如果在新文件的表中有该代码
      Call Changeone(m) '执行修改操作
    End If
  Else '如果在已读的表中有该代码
    Call Changedata(m) '执行修改操作
  End If
  Rs.Close
  Set Rs = Nothing
  Conn.Close
  Set Conn = Nothing
  Rsc.Close
  Set Rsc = Nothing
  Connc.Close
  Set Connc = Nothing
End Sub