Dim myConn As New SqlClient.SqlConnection(myCnn)
Dim myComm As New SqlClient.SqlCommand()
Dim myReader1 As SqlClient.SqlDataReader
Dim A1 as Integer
myComm.Connection = myConn
myComm.CommandText = "select * from 表一 where ......"
myConn.Open()
myReader1 = myComm.ExecuteReader
If myReader1.Read Then
A1 = myReader1.GetValue(myReader1.GetOrdinal("列名"))
End If
myConn.Close()