求一份VB.NET的注册页面的代码

创建完相应的用户名，密码控件之后，输入以下代码：
Imports System.Data.OleDb

Public Class Form1
Private Sub cmdok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdok.Click
Dim m_username As String
Dim m_userpwd As String
Dim cmd_result As MsgBoxResult
Dim m_da As New OleDbDataAdapter
Dim m_ds As New DataSet
Dim m_command As New OleDbCommand
Dim strsql As String

m_username = txtusername.Text
m_userpwd = txtuserpwd.Text

strsql = " select * from user_info where username='" & m_username & "' and userpwd='" & m_userpwd & "'"

OleDbConnection1.Open()

m_command.CommandType = CommandType.Text
m_command.CommandText = strsql
m_command.Connection = OleDbConnection1

m_da.SelectCommand = m_command