Priv
 
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's funktioniert... :)
        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