incorrect syntax near the keyword from

[kimpoy0]

module:

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

login:

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

[Banfa]

There is no keyword from in your posted code