Function getdatareader(ByVal sql As String) As SqlDataReader
mycmd = New SqlCommand(sql, myconn)
myconn.Open()
getdatareader = mycmd.ExecuteReader()
End Function
----------------------------------------
Dim strConn As String
strConn = "server=E1D1725D96E04C1;uid=sa;pwd=123456;database=booklib"
myconn = New SqlConnection(strConn)
sql = "select Name from Mytable where id=123"
Dim userid, pass As String
Dim user As SqlDataReader = getdatareader(sql)
While user.Read()
userid = user.Item(0)
pass = user.Item(1)