資料庫 連結(開啟)

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\客戶名單資料庫.mdb;Persist Security Info=False"
rs.Open "select * from 客戶名單資料庫", con, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs

資料欄位預設都再最後一筆

rs.MoveLast

資料欄位輸入指令

rs.AddNew

資料以陣列型態處理

For i = 0 To 3
        rs.Fields(i).Value = Trim(txtdata(i).Text)
    Next i

資料表寫入資料庫後，跳下一各資料表

rs.MoveNext

將資料欄位清空

For i = 0 To 3
        txtdata(i).Text = ""
    Next