Dim sqlCnn As New SqlClient.SqlConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "dbName")
Dim sqlCmd As New SqlClient.SqlCommand("select a,b,c, from table1", sqlCnn)
Dim ds As New DataSet
Dim da As New SqlClient.SqlDataAdapter
da.SelectCommand=sqlCmd
sqlCnn.open()
da.Fill(ds, "tempTable")
sqlCnn.close()
Dim a As Integer
Dim b, c As String
For Each dr As DataRow In ds.Tables("tempTable").Rows
a = dr(0)
b = dr(1)
c = dr(2)
'......
Next
救急