怎么向数据库到不进去东西？账户只有8分了，全给了

刚刚接触VB数据库，有许多东西不懂(账户只有8分了）
新编写的程序进行到rs.Open "select from Table1", conn, adOpenStatic, adLockReadOnly出现错误？
哪位高手帮忙解决一下。附件为读取文件和.mdb数据库
程序如下：
Private Sub Command1_Click()
   Dim intFreeNumber As Integer
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim rsArray() As String, fdArray() As String
    Dim i As Long, j As Long
    Dim strTemp As String
    Dim strfile As String
   
    intFreeNumber = FreeFile()
    Open App.Path & "\aa.txt" For Binary As #intFreeNumber
    Do While Not EOF(intFreeNumber)
      strTemp = Input(intFreeNumber, #intFreeNumber)
      strfile = strfile & strTemp
    Loop
    Close #intFreeNumber
    Set conn = New ADODB.Connection
   
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
    conn.Open
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "select from Table1", conn, adOpenStatic, adLockReadOnly

    rsArray = Split(strfile, vbCrLf)
    For i = 0 To UBound(rsArray) - 1
        fdArray = Split(rsArray(i), ",")
        For j = 0 To 1
            rs.AddNew
            rs(0).Value = Trim(fdArray(0))
            rs(1).Value = Trim(fdArray(1))
        Next j
    Next i
    rs.UpdateBatch
    Set rs = Nothing
    Set conn = Nothing
End Sub