percorer datagrid e gerar uma tabela no sqlserver 2000

Boa tarde,

Tenho uma função que retorna os dados num datagrid1 e preciso fazer um do while que pegue linha por linha do datagrid1 e faça insert into numa tabela do sqlserver2000.

A função é essa:

Protected Function GetDataSource(ByVal vmatricula, ByVal vdata_ini, ByVal vdata_fim) As System.Collections.ICollection
´ abre uma conexao
Dim strConnection As String = ´Provider=Microsoft.Jet.OLEDB.4.0;Data Source=u:\tradenet.mdb´
Dim cn As OleDbConnection = New OleDbConnection(strConnection)
cn.Open()
´define um objeto dataAdapater
Dim strSql As String = ´select * from tb_atvltr where cod_cadusu = ´ + vmatricula + ´ and ((year(dta_hor_atvltr) = ´ + RTrim(Str(Year(vdata_ini))) + ´) or (year(dta_hor_atvltr) = ´ + RTrim(Str(Year(vdata_fim))) + ´)) and ((month(dta_hor_atvltr) = ´ + RTrim(Str(Month(vdata_ini))) + ´) or (month(dta_hor_atvltr) = ´ + RTrim(Str(Month(vdata_fim))) + ´)) ´
Dim da As OleDbDataAdapter = New OleDbDataAdapter(strSql, cn)
´ Carrega o DataSet
Dim ds As DataSet = New DataSet()
da.Fill(ds, ´atvteste´)
´fecha a conexao
cn.Close()
´envolve o objeto Datatable Atvteste em um objeto DataView
Dim dv As New DataView(ds.Tables(´atvteste´))
Return dv
End Function

preciso que este return dv faça algo parecido com o codigo abaixo, mas não funcionou.

GetDataSource(vMatricula, vdata_ini, vdata_fim)
´For Each dr As DataRow In Datatable1.Rows
´ Dim strSql As String
´ strSql = ´Insert Into Tabela Values(´ + dr(0).ToString + ´,´ + dr(1).ToString
´ MyDbHelper.ExecuteNonQuery(strSql)
´Next

Será que alguém pode me ajudar ?