gli passi la stringa che si riferisca alla tua tabella esempio SELECT * FROM TABLE1 e il dataset da inserire nella tabella

Public Function aggiorna_inseriti(ByVal stringa As String, ByVal collezione As DataSet) As Boolean
Dim rifclass As New Uccellari.utilita.setdata()
Dim adapter As New SqlDataAdapter(stringa, rifclass.Connessione)
Dim builder As New SqlCommandBuilder(adapter)
Try
adapter.Update(collezione)
Return True
Catch exp As DBConcurrencyException
Return False
End Try
End Function