唯讀 ExecuteReader

'載入資料庫 '*************************************************************************************************** '資料庫指令!

Dim Str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=123.mdb"

Dim conn As OleDbConnection = New OleDbConnection(Str)

Dim dr As OleDbDataReader

conn.Open()
'組合要輸出的參數！ '取得要輸出的號碼

Dim SQL As String = ""

SQL += "SELECT * "

*******************略過

Dim cmd As OleDbCommand = New OleDbCommand(SQL, conn) '誇號裡的第一個是SQL的字串,第二個是資料庫的聯結=OleDbConnection

dr = cmd.ExecuteReader '執行SQL

While dr.Read
N= dr(0).ToString

End While