Dim Strsql As String
Dim Reader As SqlDataReader
Try
Strsql = "Select * from table1"
Reader = SqlHelper.ExecuteReader(My.Settings.CebasConnectionString, CommandType.Text, Strsql)
......
Reader.Close()
Catch ex As Exception
End Try
oledbdatareader的例子我这里没有 ![](images/smilies/emot/em04.gif)