Insert textbox, radio button and month calender values to ms access 2010 using VB.NET 2010

See more:

VB

Dear all,

I want to insert textbox, radio button and Month calender values to ms access 2010 database using vb.net.

I want to clear the all the text box values, unchecked the radio buttons and set system date for month calender after insert the values to database.

But it says there is a syntax error at INSERT INTO statement.

Please help me on this.

What I have tried:

Imports System.Data.OleDb
Public Class dailyTrackingfrm
    Dim Provider As String
    Dim datafile As String
    Dim connString As String
    Public myConnection As OleDbConnection = New OleDbConnection
    Public dr As OleDbDataReader
-------------------------------------------------------------------
<pre> Private Sub dailyTrackingfrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
        datafile = "D:\Tubewell\Tubewell\Tubewell.accdb"
        connString = Provider & datafile
        myConnection.ConnectionString = connString
    End Sub
-----------------------------------------------------------------------------------

Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.Click
        Dim res As String
        Dim s As String
        Dim obj As New DateTime()
        If RadioButton1.Checked = True Then
            s = RadioButton1.Text
        Else
            s = RadioButton2.Text
        End If
        res = MsgBox("Do you want to add this record?", vbQuestion + vbYesNo, "Add Record")
        If res = vbYes Then
            Try
                Using sqlconn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Tubewell\Tubewell\Tubewell.accdb")
                    Using sqlquery As New OleDb.OleDbCommand("INSERT INTO DailyTracking(EmpNo,Type,Attendance,Date) VALUES (?,?,?,?)", sqlconn)
                        sqlquery.Parameters.AddWithValue("@EmpNo", txtempno.Text)
                        sqlquery.Parameters.AddWithValue("@Type", txttype.Text)
                        sqlquery.Parameters.AddWithValue("@Attendance", s)
                        sqlquery.Parameters.AddWithValue("@Date", MonthCalendar1.SelectionStart)
                        sqlconn.Open()
                        sqlquery.ExecuteNonQuery()
                        MsgBox("Records inserted successfully", vbOKOnly, "Records inserted")
                        txtempno.Text = ""
                        txttype.Text = ""
                        RadioButton1.Checked = False
                        RadioButton2.Checked = False
                        MonthCalendar1.TodayDate = obj
                    End Using
                End Using
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End If
    End Sub
End Class