[Rabeea Qbaha]

بالطبع يمكنك ذلك تفضل 

كود :

'فحص الاتصال بقاعدة البيانات
       If SQL.conn.State = ConnectionState.Open Then
           SQL.conn.Close()
       End If
       For Each row As DataGridViewRow In DataGridView1.Rows
           SQL.conn.Open()
           Dim cmd As New oledbCommand()
           cmd.CommandText = "insert into Table (fild_name1,fild_name2,fild_name3) values(@fild_name1,@fild_name2,@fild_name3)"
           cmd.Parameters.AddWithValue("@fild_name1", (row.Cells(1).Value))
           cmd.Parameters.AddWithValue("@fild_name2", (row.Cells(2).Value))
     cmd.Parameters.AddWithValue("@fild_name3", (row.Cells(2).Value))
           cmd.Connection = SQL.conn
           cmd.ExecuteNonQuery()
           SQL.conn.Close()
       Next