Below is my code using vb 2005 with access 2003 database I get syntex error INSERT INTO Statement. However, I think my sql statement is correct. I need help please.

Imports System.Data.OleDb
PublicClass DAL
PublicSharedFunction GetConnection() As OleDbConnection
Dim connectionString AsString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source= C:\MyPatientsData.mdb"
ReturnNew OleDbConnection(connectionString)
EndFunction
Dim InsertCmd AsNew OleDbCommand
PublicSub Insert_Patient(ByVal m_FirstName AsString, ByVal m_LastName AsString, ByVal m_DOB AsDate, ByVal m_Address1 AsString, ByVal m_village AsString, _
ByVal m_PostalCode AsString, ByVal m_HomePhone AsInteger, ByVal m_CellPhone AsInteger, ByVal m_Gender AsString, ByVal m_EmploymentInfo AsString, ByVal m_AppointmentDate AsDate, ByVal m_JobTitle AsString, ByVal m_Supervisor AsString, ByVal Departmentname AsString)
Dim conn As OleDb.OleDbConnection = GetConnection()
Dim InsertStatement AsString = "INSERT INTO [Patients](m_FirstName, m_LastName, m_DOB, m_Address1, m_Village, m_PostalCode, m_HomePhone, m_CellPhone, m_Gender, m_EmploymentInfo, m_AppointmentDate, m_JobTitle, m_Supervisor, m_DepartmentName)VALUES(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
'm_FirstName', 'm_LastName', 'm_DOB', 'm_Age', 'm_Address1', 'm_Village', 'm_PostalCode', 'm_HomePhone', 'm_CellPhone', 'm_MaritalStatus, 'm_Gender', 'm_Dependants', 'm_EmploymentInfo', 'm_AppointmentDate', 'm_Position', m_Supervisor )"
Dim selectSQL AsString = "SELECT * FROM Patients "
'm_FirstName, m_LastName, m_DOB, m_Age, m_Address1, m_Village, m_PostalCode, m_HomePhone, m_CellPhone, m_Maritalstatus, m_Dependants, m_Gender, m_EmploymentInfo, m_Appointmentdate, m_Position, m_Supervisor FROM Patients"
'Dim SelectCommand As New OleDbCommand(selectSQL, conn)
Dim InsertCmd1 AsNew OleDbCommand(InsertStatement, conn)
InsertCmd1.Parameters.AddWithValue("@m_FirstName", "Patients.m_FirstName")
'InsertCmd1.Parameters(0).Value = FirstName
InsertCmd1.Parameters.AddWithValue("@m_LastName", "Patients.m_LastName")
'InsertCmd1.Parameters(1).Value = LastName
InsertCmd1.Parameters.AddWithValue("@m_DOB", "Patients.m_DOB")
'InsertCmd1.Parameters(2).Value = DOB
'InsertCmd1.Parameters.AddWithValue("@m_Age", "Patients.m_Age")
'InsertCmd1.Parameters(3).Value = Age


InsertCmd1.Parameters.AddWithValue("@m_Address1", "Patients.m_Address1")
'InsertCmd1.Parameters(4).Value = Address
InsertCmd1.Parameters.AddWithValue("@m_Village", "Patients.m_Village")
' InsertCmd1.Parameters(5).Value = village
InsertCmd1.Parameters.AddWithValue("@m_PostalCode", "Patients.m_PostalCode")
'InsertCmd1.Parameters(6).Value = PostalCode
InsertCmd1.Parameters.AddWithValue("@m_Phone", "Patient.m_Phone")
'InsertCmd1.Parameters(7).Value = Phone
InsertCmd1.Parameters.AddWithValue("@m_Cell", "Patients.m_Cell")
'InsertCmd1.Parameters(8).Value = Cell
'InsertCmd1.Parameters.AddWithValue("@m_MaritalSta tus", "Patient.m_MaritalStatus")
'InsertCmd1.Parameters(9).Value = MaritalStatus
'InsertCmd1.Parameters.AddWithValue("@m_Dependants ", "Patients.m_Dependants")
'InsertCmd1.Parameters(10).Value = Dependants
InsertCmd1.Parameters.AddWithValue("@m_Gender", "Patients.m_Gender")
'InsertCmd1.Parameters(11).Value = Gender
InsertCmd1.Parameters.AddWithValue("@m_EmploymentInfo", "Patients.m_EmploymentInfo")
'InsertCmd1.Parameters(12).Value = Employment
InsertCmd1.Parameters.AddWithValue("@m_Appointmentdate", "Paients.m_AppointmentDate")
'InsertCmd1.Parameters(13).Value = AppointmentDate
InsertCmd1.Parameters.AddWithValue("@m_JobTitle", "Patients.m_JobTitle")
'InsertCmd1.Parameters(14).Value = (Position)
InsertCmd1.Parameters.AddWithValue("@m_Supervisor", "Patients.m_Supervisor")
InsertCmd1.Parameters.AddWithValue("@m_DepartmentName", "Patients.m_DepartmentName")
'InsertCmd1.Parameters(15).Value = Supervisor
Try
conn.Open()
InsertCmd1.ExecuteNonQuery()
Dim StrStatement AsString _
= "SELECT IDENT_CURRENT('Patients')FROM Patients"
Dim Selectcommand AsNew OleDbCommand(StrStatement, conn)
Dim PatientID AsInteger = CInt(Selectcommand.ExecuteScalar)
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
conn.Close()
EndTry
EndSub