Menghapus seluruh Isi tabel pada koneksi ADODB

Lngkah - langkahnya sebagai berikut :

1. Ketik script dibawah ini
Private Sub Hapus()

Set rstabelinput_karyawan = New ADODB.Recordset

rstabelinput_karyawan.LockType = adLockOptimistic

rstabelinput_karyawan.CursorType = adOpenDynamic

rstabelinput_karyawan.Open " select * from tabelinput_karyawan ", conn, , , adCmdText

If Not rstabelinput_karyawan.EOF Then

rstabelinput_karyawan.MoveFirst

Do Until rstabelinput_karyawan.EOF

rstabelinput_karyawan.Delete

rstabelinput_karyawan.UpdateBatch

rstabelinput_karyawan.MoveNext

Loop

MsgBox "Data Berhasil Dikosongkan !", vbInformation, "Informasi"

End If