Menghapus Data (VB.Net 2008)

    Sub hapus_data()

        Dim hapus As String = "DELETE FROM kota WHERE id_kota='" & txt_id_kota.Text & "'"

        Cmd = New Odbc.OdbcCommand(hapus, Conn)

        Cmd.ExecuteNonQuery()

    End Sub