Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        VDataGridView.AllowUserToAddRows = False
        Dim a As Boolean = False
        Dim Row As DataGridViewRow
        Dim str_find As String = TextBox1.Text
        For Each Row In VDataGridView.Rows
            If (Row.Cells(0).Value.ToString().ToLower.Contains(str_find.ToLower)) Then
                VDataGridView.CurrentCell = Row.Cells(0)
                VDataGridView.Rows(Row.Index).Selected = True
                a = True
            End If
        Next
        If a = False Then MsgBox("Материал " & str_find & " не найден", 32, "Поиск")
    End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
             Me.VTableAdapter.Fill(Me.BASEDataSet.v)
 End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        VBindingSource.Filter = "NUM = '" & TextBox3.Text & "'"
    End Sub

    Private Sub DateTime2_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTime2.ValueChanged
        VBindingSource.Filter = "Date_admission >= '" & DateTime1.Text & "' AND Date_admission <= '" & DateTime2.Text & "' AND FIO Like '" & TextBox3.Text & "%'"
    End Sub