Menambah Baris Data Baru

Dalam kasus ini misalnya saya mempunyai sebuah tabel dengan isi field: no_urut, nama_karyawan, usia.
Yang Pertama, melalui obyek recordset.

1. Buat obyek recordset dahulu melalui variable. Tentu rekan-rekan sudah mengetahui hal ini, yaitu Dim rs As New ADODB.Recordset
2. Untuk menyimpan sebaris data kedalam tabel tersebut adalah sebagai berikut:

   rs.Open "select * from tbl_karyawan", Conn, adOpenDynamic, adLockOptimistic
   rs.AddNew
   rs.Fields("nama_karyawan") = "Udin"
   rs.Fields("usia") = 16
   If MsgBox("Data akan disimpan?", vbYesNo) = vbYes Then
        rs.Update
   Else
        rs.CancelUpdate
   End If
   rs.Close

3. Data anda sudah tersimpan.

Yang Kedua, melalui syntax SQL

1. Kita akan memakai obyek koneksi anda ke database, artikel lengkap tentang obyek koneksi ke database dapat anda baca di artikel ini. Misalnya obyek koneksi kita namai dengan Conn.
2. Scriptnya secara garis besar seperti ini:

   Dim strUpdate As String
   strInsert = "INSERT INTO tbl_karyawan(nama_karyawan, usia) VALUES ('Udin', 16)"
   Conn.Execute strInsert

3. Data anda sudah tersimpan.

Tentu kedua metode di atas mempunyai kelemahan dan kelebihannya sendiri. Kalau saya pribadi suka memakai cara yang kedua. Tapi semua keputusan di tangan anda. Selamat mencoba.