大家看一看
这样的代码是如何与数据库建立连接的？
急！！！
望大家能帮忙！

[localimg=372,300]1[/localimg]
继续！！！

Namespace aspx

Partial Class UserLogin
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region
    Dim sqlstr As New aspx.sqllangue.sqllangue
    Dim sqlselect As String
    Private Sub errorshow()
        If Me.Session("error") <> "" Then
            Me.Response.Write(Me.Session("error"))
            Me.Response.End()
        End If
    End Sub

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sqlstr.conns()
        errorshow()
        If Me.CheckBox1.Checked = True Then

            sqlselect = "select pwd,name,power,id from useradmin where username='" & Me.Textbox2.Text & "'"
            sqlstr.sqlselect(sqlselect)
            errorshow()

            If sqlstr.sqlds.Tables("temporary").Rows.Count = 0 Then
                Me.Label1.Text = "用户不存在！"
            Else
                If RTrim(sqlstr.sqlds.Tables("temporary").Rows(0).Item(0)) = Me.Textbox3.Text Then
                    Me.Session("adminno") = Me.Textbox2.Text
                    Me.Session("adminname") = sqlstr.sqlds.Tables("temporary").Rows(0).Item(1)
                    Me.Session("adminpower") = sqlstr.sqlds.Tables("temporary").Rows(0).Item(2)
                    Me.Session("adminid") = sqlstr.sqlds.Tables("temporary").Rows(0).Item(3)

                    Me.Session("userno") = ""
                    Me.Session("username") = ""
                    Me.Session("userid") = ""

                    If Me.Session("adminpower") = -1 Then
                        Response.Redirect("adminbar.aspx")
                    Else
                        Response.Redirect("toolbar.aspx")
                    End If
                Else
                    Me.Label1.Text = "密码错误"
                End If
            End If

图片传不上去
就贴原码了！
谢谢

这是一个用户进入网站的验证代码

我想对这些代码进行更改
但是我不知道这些是如何连接数据库的

我就是想知道这些代码是如何连接数据库的？

我也不熟悉VB
所以谁会
请指点下

谢谢楼上的美女
有点思路了