Ricerca Esatta

Private Sub RicercaEsatta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RicercaEsatta.Click
        '*************** 
        ' RICERCA ESATTA 
        '*************** 
        If Len(TxtRicerca.Text) = 0 Then
            MsgBox("Stringa di ricerca vuota", MsgBoxStyle.Exclamation, "KO")
            TxtRicerca.Focus()
            Exit Sub
        End If
        If Len(ComboRicerca.Text) = 0 Then
            MsgBox("Campo di ricerca vuoto", MsgBoxStyle.Exclamation, "KO")
            ComboRicerca.Focus()
            Exit Sub
        End If
        Dim Mycampo As String = Trim(ComboRicerca.Text)
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        Dim MyChar As String = RitornaTipo(ComboRicerca.Text)
        sql = "SELECT * FROM Amministratori where (" & Mycampo & " = " & MyChar & TxtRicerca.Text & MyChar & ") order by " & Mycampo
        DataSetGrid = New DataSet("Amministratori")
        DataGridDaPt = New OleDb.OleDbDataAdapter(sql, Dbazienda)
        DataGridDaPt.Fill(DataSetGrid, "Amministratori")
        DataGridBindig = New BindingSource()
        DataGridBindig.DataSource = DataSetGrid
        DataGridBindig.DataMember = "Amministratori"
        DataGridView1.DataSource = DataGridBindig
        If DataGridBindig.Count = 0 Then
            MsgBox(ComboRicerca.Text & " NON TROVATO", MsgBoxStyle.Information, "kO")
        End If
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        If DataGridBindig.Count = 0 Then
            Beep()
        End If
        If DataGridBindig.Count > 0 Then
            LblStatus.Text = DataGridBindig.Position & "/" & DataGridBindig.Count
        Else
            LblStatus.Text = "Recordset vuoto!"
            MsgBox("Recordset vuoto!", MsgBoxStyle.Information, "Non ci sono Record")
            DataGridView1.DataSource = AmministratoriBindingSource
        End If
    End Sub

Private Sub RicercaEsatta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RicercaEsatta.Click
'***************

' RICERCA ESATTA

'***************

If Len(TxtRicerca.Text) = 0 Then
MsgBox("Stringa di ricerca vuota", MsgBoxStyle.Exclamation, "KO")
TxtRicerca.Focus()
Exit Sub
End If
If Len(ComboRicerca.Text) = 0 Then
MsgBox("Campo di ricerca vuoto", MsgBoxStyle.Exclamation, "KO")
ComboRicerca.Focus()
Exit Sub
End If
Dim Mycampo As String = Trim(ComboRicerca.Text)
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
Dim MyChar As String = RitornaTipo(ComboRicerca.Text)
sql = "SELECT * FROM Amministratori where (" & Mycampo & " = " & MyChar & TxtRicerca.Text & MyChar & ") order by " & Mycampo
DataSetGrid = New DataSet("Amministratori")
DataGridDaPt = New OleDb.OleDbDataAdapter(sql, Dbazienda)
DataGridDaPt.Fill(DataSetGrid, "Amministratori")
DataGridBindig = New BindingSource()
DataGridBindig.DataSource = DataSetGrid
DataGridBindig.DataMember = "Amministratori"
DataGridView1.DataSource = DataGridBindig
If DataGridBindig.Count = 0 Then
MsgBox(ComboRicerca.Text & " NON TROVATO", MsgBoxStyle.Information, "kO")
End If
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
If DataGridBindig.Count = 0 Then
Beep()
End If
If DataGridBindig.Count > 0 Then
LblStatus.Text = DataGridBindig.Position & "/" & DataGridBindig.Count
Else
LblStatus.Text = "Recordset vuoto!"
MsgBox("Recordset vuoto!", MsgBoxStyle.Information, "Non ci sono Record")
DataGridView1.DataSource = AmministratoriBindingSource
End If
End Sub