Private WithEvents _SearchBS As BindingSource = Nothing
 
Private Sub btn_go_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_go.Click
' Parameter-Dingsbums wie gehabt (könnte man wahrscheinlich auch anders machen, 
' aber wenn es funktioniert... :)
        Try
            conn.Open()
            Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
            ds_searchlist.Clear()
            da.Fill(ds_searchlist, "userlist")
' Anstelle dem DGV jetzt das Dataset zuzuweisen, nimmst Du die BindingSource
            _SearchBS = New BindingSource(ds_searchlist, _
              DeinTabellenNameImDataSet)
            DataGridView1.DataSource = _SearchBS
        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
 
' Und hier reagierst Du nun auf das Ereignis:
    Private Sub _SearchBS_CurrentChanged(ByVal sender As System.Object, ByVal e _
      As _
      System.EventArgs) Handles _SearchBS.CurrentChanged
        Fill_User_Infos_selected_by_mouse()
    End Sub

    Private Sub DataGridView1_DataBindingComplete(ByVal sender As _
      System.Object, ByVal e As _
      System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles _
      DataGridView1.DataBindingComplete
        lblRowCount.Text = String.Format("{0} Zeile(n) gefunden", _
        DataGridView1.RowCount.ToString("N0"))
    End Sub