I am getting a syntax error in insert into statement. while trying to save : Private Sub savebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savebtn.Click
        Dim con As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb8\Mini-project\Mini-project\mini_db.mdb")
        Dim query As String
        Try
            con.Open()
            query = "INSERT INTO minitab VALUES (" & TextBox1.Text & "," & TextBox2.Text & ",@dob ," & TextBox5.Text & "," & TextBox6.Text & "," & TextBox7.Text & "," & TextBox8.Text & "," & TextBox9.Text & ")"
            Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(query, con)
            Dim dt As New DataTable
            da.Fill(dt)
            MsgBox("Data has been saved", MsgBoxStyle.SystemModal, "ok")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        con.Close()
    End Sub