Quote:
((((Data type mismatch in criteria expression.)))))
No idea since I don't see any 'criteria' in this code.
But I have strong feeling that when some parameters appear in a query,
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)"
the parameters definition must match in names and position.
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
Defining parameters with same name is certainly not the way to go.