module:
Code:
Public Function searchdata(ByVal qr As String) As DataSet
        da = New SqlDataAdapter(qr, con)
        ds = New DataSet
        da.Fill(ds)
        Return ds

login:
Code:
        ds = searchdata(qr)
        If (ds.Tables(0).Rows.Count > 0) Then