学步园

 Imports System.Data
Imports System.Data.SqlClient

'定义连接字符串
        Dim sConnectionString As String _
            = "User ID=sa;Initial Catalog=data;Data Source=(local);pwd="

        '定义一个SQL连接对象 
        Dim objConn As New SqlConnection(sConnectionString)

                '定义一个查询记录命令字符
        Dim sSQL As String = "select mima from admin where id='2'"

        Dim objCmd As New SqlCommand(sSQL, objConn)

 '连接对象

        objConn.Open()

        Dim dr As SqlDataReader = objCmd.ExecuteReader()
        dr.Read()
            MsgBox(dr.Item("mima"))
       
        objConn.Close()

其它操作以此类推