Recorrer datagrid y guardar en tabla

[jaf16]

Que quedaría de esta forma?
Private Sub guardarentabla(ByVal con As OleDbConnection, ByVal strqry As String)
Dim i As Integer
Try

con.Open()
Dim cmd As New OleDbCommand(strqry, con)
Dim reader As OleDbDataReader = cmd.ExecuteReader
Dim sql As String = "SELECT IDPROVEEDOR FROM ALBARAN"

While reader.Read
sql = "INSERT INTO FACTURACION("
For i = 0 To reader.FieldCount - 1
sql = sql & reader.GetName(i) & ","
Next
sql = Microsoft.VisualBasic.Left(sql, Len(sql) - 1)
sql = sql & ")values ('IDPROVEEDOR"
For i = 0 To reader.FieldCount - 1
sql = sql & reader(i) & "','"
Next
sql = Microsoft.VisualBasic.Left(sql, Len(sql) - 2)
sql = sql & ")"
End While
ejecutarinsert(sql)
reader.Close()


Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub

Me dan estos 2 errores:

Error 1 No se ha especificado ningún argumento para el parámetro 'con' de 'Private Sub guardarentabla(con As System.Data.OleDb.OleDbConnection, strqry As String)'.


Error 2 No se ha especificado ningún argumento para el parámetro 'strqry' de 'Private Sub guardarentabla(con As System.Data.OleDb.OleDbConnection, strqry As String)'.