Public Class UserInfo Public Shared Property Id As String Public Shared Property UserName As String End Class
If RESULT IsNot Nothing Then UserInfo.id = id UserInfo.UserName = RESULT End If
Label1.Text = UserInfo.UserName
Dim SQL As String = "SELECT COUNT(ユーザーID) FROM ユーザー情報" _ & " WHERE ユーザーID='" & id & "' AND パスワード='" & pass & "'"
' AND 1 = 1 --