INSERT problem with DATA COMMAND

Public con_str As String = "provider=microsoft.jet.oledb.4.0;data source=|datadirectory|\damyar.mdb;"
Dim con As New OleDbConnection
Dim com As New OleDbCommand

        con.ConnectionString = con_str
       
        com.CommandType = CommandType.Text
        com.CommandText = "INSERT into Talgih VALUES(@ID_talgih,@ID_key,@talgih_type,@talgih_date_y,@talgih_date_m,@talgih_date_d,@talgih_nobat,@ID_sperm,@sh_gav_nar,@gav_laktasion,@mamoor)"

        com.Parameters.AddWithValue("ID_talgih", txt_ID_talgih.Text)
        com.Parameters.AddWithValue("ID_key", txt_ID_key)
        com.Parameters.AddWithValue("talgih_type", s)
        com.Parameters.AddWithValue("talgih_date_y", txt_talgih_date_y)
        com.Parameters.AddWithValue("talgih_date_m", txt_talgih_date_m)
        com.Parameters.AddWithValue("talgih_date_d", txt_talgih_date_d)
        com.Parameters.AddWithValue("talgih_nobat", txt_talgih_nobat)
        com.Parameters.AddWithValue("ID_sperm", txt_ID_sperm)
        com.Parameters.AddWithValue("sh_gav_nar", txt_sh_gav_nar)
        com.Parameters.AddWithValue("gav_laktasion", txt_gav_laktasion)
        com.Parameters.AddWithValue("mamoor", txt_mamoor)

        con.Open()
        com.ExecuteNonQuery()
        con.Close()