下面是一個用VB操作ACCESS資料庫的一個例子，當中支援新增，刪除，修改，查詢等基本操作，雖然很多都是使用的是固定字元，但是足夠用來做參考了。
ACCESS資料庫的名字是“db1.mdb”，資料庫裡面有一個表格，名字是“學生資訊表”，表格裡有4個欄位，分別是“學號”、“姓名”、“語文”和“英語”

VB工程裡面需要新增兩個部件

在選單->工程->部件裡面新增以下兩個部件，一是Microsoft ADO Data Control 6.0 (SP6) (OLEDB)，第二個Microsoft DataGrid Control 6.0 (SP6) (OLEDB)



以下是程式碼全文：


'本例子中，ADODB作為資料的修改操作源，ADODC作為資料顯示源
'ADODB是一個數據模型，他使用的是microsoft.jet.oledb.4.0的資料庫引擎
'ADODC是一個數據控制元件。他是使用了microsoft.jet.oledb.4.0的資料引擎的一個控制元件


'注意不要把datagrid1的tabindex屬性0.就是程式啟動時不是datagrid是第一個焦點，否則會出現“索引或主關鍵字不能包含一個空(null)值”報錯
'注意不要把ACCESS資料庫的欄位設定為何系統關鍵字一樣的名字，例如password之類的，否則的話會出現SQL語句語法錯誤的報警


Dim ind As Integer
Dim mystr
Dim cn As ADODB.Connection


Private Sub CommandCheck_Click()
  Adodc1.RecordSource = "select * from 學生資訊表"
  Adodc1.Refresh
  mystr = Choose(ind + 1, "學號", "姓名", "語文", "英語")
  Adodc1.RecordSource = "select * from 學生資訊表 where " + mystr + "='" + Text1.Text + "'"
  Adodc1.Refresh
End Sub


Private Sub CommandAdd_Click()
    
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
    cn.Execute "insert into 學生資訊表(學號,姓名,語文,英語) values('15','趙六','77','60')"
    cn.Close
    Set cn = Nothing
    
    Adodc1.Refresh
End Sub


Private Sub CommandChange_Click()


    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
    cn.Execute "update 學生資訊表 set 姓名='陳七' where  學號 = '15'"
    cn.Close
    Set cn = Nothing
    
    Adodc1.Refresh
    
End Sub




Private Sub CommandDelect_Click()
    
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
    cn.Execute "delete from 學生資訊表 where 學號 = '15'"
    cn.Close
    Set cn = Nothing
    
    Adodc1.Refresh


End Sub


Private Sub CommandReload_Click()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
    Adodc1.RecordSource = "select * from 學生資訊表"
    Adodc1.Refresh
End Sub


Private Sub Form_Load()


Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 學生資訊表"
Adodc1.Refresh
End Sub


Private Sub Option1_Click(Index As Integer)
  ind = Option1(Index).Index

End Sub

以下是執行的效果：