Private Sub DataGridView1_SelectionChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs)
        blindlbl_name.Text = DataGridView1.CurrentRow.Cells( _
        "displayname").Value.ToString()
    End Sub
 
    Private Sub btn_go_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_go.Click
        Dim conn As New SqlConnection(conn_string_read)
        Dim cmd As New SqlCommand("sp_get_all_filtered_results", conn)
        cmd.CommandType = CommandType.StoredProcedure
 
        str_filter_lastname = cmbox_lastname.Text.ToString()
        str_filter_firstname = cmbox_firstname.Text.ToString()
        str_filter_department = cmbox_department.Text.ToString()
        str_filter_office = cmbox_office.Text.ToString()
        str_filter_manager = cmbox_manager.Text.ToString()
        str_filter_businesscategory = cmbox_businesscategory.Text.ToString()
 
        'LASTNAME
        cmd.Parameters.Add("@lastname", SqlDbType.VarChar, 50)
        If str_filter_lastname.Length > 50 Then
            cmd.Parameters("@lastname").Value = str_filter_lastname.ToString( _
              ).Substring(1, 50)
        Else
            cmd.Parameters("@lastname").Value = str_filter_lastname.ToString()
        End If
 
        'FIRSTNAME
        cmd.Parameters.Add("@firstname", SqlDbType.VarChar, 20)
        If str_filter_lastname.Length > 20 Then
            cmd.Parameters("@firstname").Value = str_filter_firstname.ToString( _
              ).Substring(1, 20)
        Else
            cmd.Parameters("@firstname").Value = str_filter_firstname.ToString()
        End If
 
        'DEPARTMENT
        cmd.Parameters.Add("@department", SqlDbType.VarChar, 50)
        If str_filter_lastname.Length > 50 Then
            cmd.Parameters("@department").Value = _
              str_filter_department.ToString().Substring(1, 50)
        Else
            cmd.Parameters("@department").Value = _
              str_filter_department.ToString()
        End If
 
        'OFFICE
        cmd.Parameters.Add("@office", SqlDbType.VarChar, 50)
        If str_filter_lastname.Length > 50 Then
            cmd.Parameters("@office").Value = str_filter_office.ToString( _
              ).Substring(1, 50)
        Else
            cmd.Parameters("@office").Value = str_filter_office.ToString()
        End If
 
        'MANAGER
        cmd.Parameters.Add("@manager", SqlDbType.VarChar, 100)
        If str_filter_lastname.Length > 100 Then
            cmd.Parameters("@manager").Value = str_filter_manager.ToString( _
              ).Substring(1, 100)
        Else
            cmd.Parameters("@manager").Value = str_filter_manager.ToString()
        End If
 
        'BUSINESSCATEGORY
        cmd.Parameters.Add("@businesscategory", SqlDbType.VarChar, 50)
        If str_filter_lastname.Length > 50 Then
            cmd.Parameters("@businesscategory").Value = _
              str_filter_businesscategory.ToString().Substring(1, 50)
        Else
            cmd.Parameters("@businesscategory").Value = _
              str_filter_businesscategory.ToString()
        End If
 
        Try
            conn.Open()
            Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
            ds_searchlist.Clear()
            da.Fill(ds_searchlist, "userlist")
        Catch ex As Exception
            MsgBox("Datenbank Fehler ! Gefilterte Einträge konnten nicht" & _
              "abgefragt werden.\n" + Convert.ToString(ex), MsgBoxStyle.OkOnly)
        Finally
            conn.Close()
        End Try
    End Sub
 
 
    Private Sub DataGridView1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles DataGridView1.Click
        Fill_User_Infos_selected_by_mouse()
    End Sub

_________________________________________________________________________________

Systemintegrator der Spa? am Programmieren gefunden hat!
Bitte nicht hauen, wenn ich etwas Falsches, oder Quatsch von mir gebe ;)