รบกวนช่วยดูหน่อยครับ ติดปัญหา VB 2008 เขียนข้อมูลไม่ลง Access 2003 ครับ รายละเอียดข้างใน

Imports System.Data.OleDb
Public Class frmadd
    Dim conn As New OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
        Dim strcon As String
        strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Documents\account.mdb"
        With conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strcon
            .Open()
        End With
        Dim sqlaccount As String
        Dim cmdaccount As New OleDbCommand
        sqlaccount = "INSERT INTO account (no, ac_name, ac_id, range, ac_begin, ac_finish, ac_fund, ac_tax) VALUES (2, 'ทดสอบ2', '6666', 12, '1/1/2010', '1/1/2011', 20000, 6)"
        MessageBox.Show(sqlaccount)
        Try
            With cmdaccount
                .CommandType = CommandType.Text
                .CommandText = sqlaccount
                .Connection = conn
                .ExecuteNonQuery()
            End With
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub