VB的grid控件 VB的grid控件 VB的grid控件

行啊：

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Public Function ADODBJet(Optional DBfile As String, _
Optional pwd As String) As ADODB.Connection
On Error Resume Next
Dim defDB As String '数据库文件请自行设置
defDB = App.Path & "\Bond.mdb"
If DBfile = "" Then DBfile = defDB
Set ADODBJet = New ADODB.Connection
ADODBJet.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;User ID=Admin; " & _
"Jet OLEDB:Database Password=" & pwd & "; Data Source=" & DBfile
If ADODBJet.State <> 1 Then Set ADODBJet = Nothing
End Function

Private Sub Form_Load()
Set cn = ADODBJet
If cn.State = 1 Then
rs.Open "Select * From Member2", cn, 1, 2
Set VG1.DataSource = rs
End If
With VG1
.Editable = flexEDKbdMouse '可用键盘和鼠标编辑
.AllowUserResizing = flexResizeBothUniform '可用鼠标调整单元大小, 如果值为“flexResizeBoth”则单独调整行高或列宽
.ScrollTrack = True '行随滚动条翻滚
.WordWrap = True '单元中的文本过长换行显示
.AddItem "" '添加一行为了新增内容
End With
End Sub

access可以建立外部数据源，直接建立跟oracle的链接就可以
然后将你要操作的表添加进access中，建立本地数据集合
注意一定要给access建立的数据源赋予写oracle的权限
这样你的access数据表数据就会跟oracle中的保持一致了
access数据表数插入新数据，oracle就会更新

非要用程序写，可以写个VBA，将access数据读出，完了将Inser语句自己拼写好后写到本地.sql文件，写一个bat文件，该bat文件是调用oracle的sql plus，执行你生成的这个.sql文件就可以个。
直接写sql句，不现实，不同的数据源不可能，一个是文件型的，一个是关系型的