簡單顯示資料的方法

'此處需要1個DataGrid(DataGrid1)
Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
Dim strFile As String
strFile = "C:\temp\db1.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";Persist Security Info=False"
'開啟資料庫連線,此處為開啟Access 資料庫,其他資料庫的連線請查MSDN
rs.CursorLocation = adUseClient
'設定或傳回資料指標服務的位置,詳細資料請查MSDN
rs.Open "Select * From test1", cn, adOpenKeyset, adLockOptimistic
'adOpenKeyset,adLockOptimistic分別代表指標型態及鎖定型態,詳細資料請查MSDN
Set DataGrid1.DataSource = rs '將資料來源設定給DataGrid
DataGrid1.Refresh
End Sub