无效的sql！！！请问什么原因。

Question

如图，运行时提示sql无效，请问什么原因。代码如下：Private Sub an1_Click()
     
     
     Dim cn As New ADODB.Connection
     Dim rs As New ADODB.Recordset
     cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\VB保存\用户数据.mdb"
     Sql = "selcet * from [file]"
     Set rs = cn.Execute(Sql)
     Dim stm As New ADODB.Stream
     With stm
          .Type = adTypeBinary
          .Open
          .LoadFromFile ty1.FileName
     End With
    
     With rst
          .AddNew
          .Fields("filename") = Text1.Text
          .Fields("filedata").Value = stm.Read
          .Update
     End With
          rs.Close
          Set rs = Nothing
        
End Sub谢谢各位老师大神。 烦请指教！！！

Answer 1

Sql = "selcet * from [file]"
==>
Sql = "select * from [file]"

Answer 2

"selcet * from [file]"
"select * from [file]"