visual studio2008 怎么用VB语言来做个简单的登陆界面？？在线等

可以写好了,有问题在线联系
'Option Strict On
Option Explicit On

Imports System.Data.SqlClient
Imports System.Web.Security
Imports System.Data
Imports common
Imports System
Imports System.Messaging
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.ControlCollection
Imports Microsoft.VisualBasic
Partial Class ManpowerR_Applyfor
Inherits System.Web.UI.Page

Dim SQLStr As String, SQLStr2 As String, SQLStr3 As String
Dim code As String
Dim table As DataTable = Nothing
Dim DataChanged As Boolean, saveString As String
Public fromwhere As String
Public gHeight As String, fontStyle As String, ebaStyle As String
Dim RecControl As Control, vrCode As String
Dim maxNo As Integer, dr2 As SqlDataReader = Nothing, viUsercode As String
Dim gDate As String
Dim copConnStr As String
Dim cnn As SqlConnection
Dim c