這里以鏈接access數據庫為例。第一部分是通過語句鏈接，第二部分是通過控件鏈接一、 通過語句鏈接數據庫，然后把相應的數據賦值給某個文本框就行了。1.首先 定義幾個全局變量Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String2.給這些變量賦值，方便鏈接數據庫constr = Provider=Microsoft.Jet.OLEDB.4.0; & Data Source=D:EffectSolution科學效應數據庫.mdb紅色部分寫你自己的數據庫路徑。3.打開數據庫cn.open constr打開表rs.open “select * from 效應表 where id=5“，cn取字符串并賦值給相應的文本Text1.text=rs.fields(“效應和現象名稱”)Text2.text=rs.fields(“文字解說”)關閉表rs.close關閉數據庫cn.close注意，最后兩步驟一定要有，不然下次打開數據庫的時候會提示出錯的，這樣的話，在窗口上建立兩個文本框就夠了。但是，在此之前還有一步一定要做，點工程-引用-找到Microsoft ActiveX Data Object 2.6 ，如圖所示：顯示的結果如下圖所示：通過與效應表對比發現顯示正確。總體代碼如下：Private Sub Form_Load()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim constr As Stringconstr = Provider=Microsoft.Jet.OLEDB.4.0; & _Data Source=D:EffectSolution科學效應數據庫.mdb空格加短下劃線表示續行cn.open constrrs.open select * from 效應表 where id =5, cnText1.Text = rs.fields(效應和現象名稱)Text2.Text = rs.fields(文字解說)rs.Closecn.CloseEnd Sub二、通過ado控件鏈接數據庫，然后通過datagrid控件顯示數據庫中的相關表。過程示例：1.添加部件ado控件和datagrid控件，如圖所示：這樣工具欄里面會出現這樣兩個圖標（最下面）：2.把這兩個控件添加到你的form1里面，這個不用演示吧3.右擊你添加的adodc1控件，選最后一個然后點General里面的Use Connection String里面的那個Build，選擇microsoft JET 4.0 OLE DB Provider，選中之后點下一步；4.然后，點擊第一個項目右邊那個很多點的按鈕，找到自己的數據庫，選好之后點“打開“ 旁邊的文本框里面就有了數據路徑，像這樣：5.測試連接，成功了就行了6.點確定，顯示這樣一個界面：7.點右邊第三個RecordSource 按鈕，設置成如下情況cmdtext選擇1，然后輸入SQL語句，Select * from 效應表（表名，必填）8.設置好之后點確定就行了，這樣就通過adodc1控件連接到了數據庫中的這張表接下來是對datagrid