>> Dim lnAccountFound As Integer = 0 >> loConnection = New SqlConnection(lcConnectionString) >> Try >> loCommand = New SqlCommand("SELECT id FROM Clients WHERE (mandator = @lcMandant) AND (login = @lcLogin) AND (password = @lcPassword)") >> loParameter1 = New SqlParameter("@lcLogin", Data.SqlDbType.VarChar, 12) >> loParameter1.Value = tcLogin >> loCommand.Parameters.Add(loParameter1) >> loParameter2 = New SqlParameter("@lcPassword", Data.SqlDbType.VarChar, 12) >> loParameter2.Value = tcPassword >> loCommand.Parameters.Add(loParameter2) >> loParameter3 = New SqlParameter("@lcMandant", Data.SqlDbType.VarChar, 50) >> loParameter3.Value = tcMandant >> loCommand.Parameters.Add(loParameter3) >> loCommand.Connection = loConnection >> loConnection.Open() >> lnAccountFound = loCommand.ExecuteNonQuery() >> Catch ex As Exception >> Finally >> If loConnection.State = Data.ConnectionState.Open Then >> loConnection.Close() >> End If >> End Try >>>>