[Mohamed Samy21]

الخطأ هو 
(System.Data.OleDb.OleDbException: 'Data type mismatch in criteria expression.')

هدا هو الكود لزرار الحذف

    Private Sub Btndelete_Click(sender As Object, e As EventArgs) Handles Btndelete.Click
        If (DGV1.SelectedRows.Count = 0) Then
            MessageBox.Show("يجب تحديد صف للحذف")
            Return
        End If
        If (MessageBox.Show("هل تريد حذف هذا السجل فعلا  ؟", "تأكيد الحذف", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign) <> DialogResult.Yes) Then Return
        Dim str As String = String.Format("delete from [govschool] where  [visitid] = {0}", DGV1(0, DGV1.SelectedRows(0).Index).Value.ToString())
        cmd = New OleDbCommand(str, conn)
        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()
        dt.Clear()
        table_govschool_Load()
        MessageBox.Show("تم الحذف بنجاح")
        'Dim cmd As New OleDbCommand
        'cmd = New OleDbCommand(" delete from  govschool where visitid =  '{0}'", conn)
        'conn.Open()
        'cmd.ExecuteNonQuery()
        'conn.Close()
    End Sub