مشکل insert رکورد جدید در بانک اطلاعاتی

[بوی بهشت]

با سلام به همه دوستان
این برنامه ای که من نوشتم از لحاظ منطقی هیچ مشکلی نداره و حتی بعد از اجرا و ورود اطلاعات پیغام درج یک رکورد را میده اما عملا چیزی را به بانک اطلاعاتی اضافه نمی کنه، اینم سورس برنامه:

Dim Mycn As OleDbConnection
Dim Command As OleDbCommand
Dim icount As Integer
Dim SQLstr As String

Private Sub ButtonAdd_Click

Try
Mycn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TestInsertDataVB\DataBaseTestInsertVB.md b;")
Mycn.Open()

SQLstr = "INSERT INTO TableTestEmployes VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & _
TextBox3.Text & "','" & ComboBox1.Text & "')"

Command = New OleDbCommand(SQLstr, Mycn)
icount = cmd.ExecuteNonQuery
MessageBox.Show(icount)

Catch ex As Exception
MessageBox.Show("could not insert record")
Mycn.Close()
End Try

end Sub

ممنون میشم زود جواب بدید:ناراحت: