Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myconn As New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & _
Server.MapPath("a.mdb"))
Dim mycommand As New OleDbDataAdapter("Select count(memuser) From memberTable " & _
" where memuser='" & txtusername.Text & "' " & _
" and mempass='" & txtpassword.Text & "'", myconn)
Dim a As New DataSet
mycommand.Fill(a, "Table1")
If a.Tables("Table1").Rows.Count > 0 Then
txtusername = (a.Tables("Table1").Rows(0).Item(0)) + 1
End If
End Sub
End Class
Load balance : Server 02
