菜鸟请问 连接SQL2005登陆form实例

菜鸟请教 连接SQL2005登陆form实例
刚刚接触语言希望能提供一个连接SQL2005数据库的登陆form的代码实例，最好是分2个文件，一个文件写代码DataBase.vb，然后另外一个登陆form引用DataBase.vb连接SQL2005，判断登陆语法，登陆了关闭登陆form,打开frmMain
谢谢大家！！

------解决方案--------------------
DataBase.vb的内容：

Imports System.Data
Imports System.Data.SqlClient
Imports System.ComponentModel

Public Class DataBase
'实现接口IDisposable
Implements IDisposable
'数据库连接对象
Private SqlConn As SqlConnection
Public Shared sConn As String = "Persist Security Info=False;Integrated Security=SSPI;database=cbgl;server=127.0.0.1;Connect Timeout=30 "
Public Sub Dispose() Implements System.IDisposable.Dispose
Dispose(True)
GC.SuppressFinalize(True)
End Sub
Protected Sub Dispose(ByVal disposing As Boolean)
If disposing <> True Then
Return
End If

If SqlConn Is Nothing = False Then
SqlConn.Dispose()
SqlConn = Nothing
End If
End Sub

Public Sub Open()
If SqlConn Is Nothing = True Then
'建立数据库连接对象
SqlConn = New SqlConnection(Me.sConn)
'打开数据库连接
SqlConn.Open()
End If
End Sub
Public Sub Close()
'如果数据库连接对象不为空则关闭数据库连接
If SqlConn Is Nothing = False Then
SqlConn.Close()
End If
End Sub
Public Function RunSelectSQL(ByVal sSQLString As System.String) As DataView
Me.Open()
Dim SqlDS As DataSet = New DataSet
Dim SqlDA As SqlDataAdapter = New SqlDataAdapter(sSQLString, Me.SqlConn)
SqlDA.Fill(SqlDS)
Return SqlDS.Tables(0).DefaultView
End Function
Public Function RunDelOrInsSQL(ByVal sSQLString As System.String)
Me.Open()
Dim SqlComm As SqlCommand = New SqlCommand(sSQLString, Me.SqlConn)
SqlComm.ExecuteNonQuery()
End Function
Public Function RunDelOrInsSQL1(ByVal sSQLString As System.String)
Me.Open()
Dim SqlComm As SqlCommand = New SqlCommand(sSQLString, Me.SqlConn)
SqlComm.ExecuteNonQuery()
End Function
End Class
-------------------------------------------
窗口的代码：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim db As DataBase = New DataBase
dim StrXls1= "SELECT * FROM ABC "
db.RunDelOrInsSQL1(StrXls1)
db.Dispose()
-----------------------

------解决方案--------------------
http://www.connectionstrings.com/