sqlnya = "delete from tabel1 where field1='" & TextBox1.Text & "'"
        Call jalan()
        MsgBox("Data Berhasil Terhapus")
        Timer1.Start()
        Button4.Enabled = True
        Button5.Enabled = False
        Button6.Enabled = False
        TextBox1.Enabled = True