Несоответствие типов данных в выражении критериев.

---

Я пытаюсь вставить в оператор , который я искал в интернете, никаких ошибок не найдено, но когда я его запускаю

((((Несоответствие типов данных в выражении критериев.)))))

"эта ошибка появляется
в чем может быть причина?

Что я уже пробовал:

'this is what i have tried

Dim sql As String = "INSERT INTO Elementary VALUES(@SchoolName, @SchoodID, @KM, @KF,@KT,@G1M,@G1F,@G1T,@G2M,@G2F,@G2T,@G3M,@G3F,@G3T,@G4M,@G4F,@G4T,@G5M,@G5F,@G5T,@G6M,@G6F,@G6T,@TM,@TF,@GT,@SY,@District,@Field2)"
        Using conn = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\plan.mdb")
            Using sqlCom = New System.Data.OleDb.OleDbCommand(sql, conn)
                conn.Open()
                sqlCom.Parameters.Add("@name", OleDbType.VarWChar).Value = SchoolNameTextBox.Text
                sqlCom.Parameters.Add("@pass", OleDbType.VarWChar).Value = SchoodIDTextBox.Text
                sqlCom.Parameters.Add("@sec", OleDbType.VarWChar).Value = KMTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = KFTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = KTTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G1MTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G1FTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G1TTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G2MTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G2FTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G2TTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G3MTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G3FTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G3TTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G4MTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G4FTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G4TTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G5MTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G5FTextBox.Text
                 sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G5TTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G6MTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G6FTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = G6TTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = TMTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = TFTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = GTTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = SYTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = DistrictTextBox.Text
                sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value = Field2TextBox.Text

                Dim icount As Integer = sqlCom.ExecuteNonQuery
            End Using
        End Using

---