buat gege bugroho. ni saya pito.. mungkin bisa membantu, Data1.Refresh Data1.Database. Execute "Delete * From namatable Where Bagian not in(select bagian from namatabel where bagian='" & text1.Text & "')" Data1.Refresh
___________________________________________________________________________
Dapatkan alamat Email baru Anda!
Dapatkan nama yang selalu Anda inginkan sebelum diambil orang lain!
http://mail.promotions.yahoo.com/newdomains/id/
