谁能帮我做个简单的登陆界面？VB.NET读取SQL密码表

[mosenyou]

谁能帮我做个简单的登陆界面？
程序怎么写？我想要全部代码
或是你现有的类似代码给我看看，先谢谢了!!!

SQL中的数据库fff中的
密码表
NAME: varchar
PWD: varchar

VB.NET组件:
Form1

TextBox1
TextBox2
Button1

密码正确就转到 Form2

[zyzcl]

晕！这个出的让人无语了，你不会先用伪代码写个吗

[mosenyou]

错误1:应为语句结束。行24列38
请问该怎么解决？

Imports System.Data.SqlClient
Public Class Form1
Dim aconnection As SqlConnection
Dim acommand As SqlCommand
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As New Form2
Dim areader As SqlClient.SqlDataReader
Dim strsql As String
Dim str1, str2 As String
aconnection = New SqlConnection("data source=erpserver;initial catalog=DLCSYS;UID=sa;pwd=;")
strsql = "SELECT MA001,MA002 FROM DSCMA"
acommand = New SqlCommand(strsql, aconnection)
acommand.Connection.Open()
areader = acommand.ExecuteReader(CommandBehavior.CloseConnection)
With areader
Do While .Read = True
str1 = .GetString(0)
str2 = .GetString(1)
If Trim(TextBox1.Text) = Trim(str1) And Trim(TextBox2.Text) = Trim(str2) Then
MsgBox("恭喜您登录成功！")
Me.Visible = False
f.Show()
Else
行24 Trim(TextBox1.Text) <> Trim(str1) Or Trim(TextBox2.Text) <> Trim(str2) Then MsgBox("用户或密码错误！")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End If
Loop
End With

End Sub
End Class

[mosenyou8]

晕死，没人回答正确，浪费我的分，结贴算了