Auto invoice

Hej jeg er ved at være træt af at holde øje med domains udløb dato og vil derfor gerne have lave det om sådan at jeg automatisk faktura system til min kunder..

Jeg

Mit script ser sådan ud..

        Public Sub AutoInvoice()
        Dim Conn As New MySqlConnection("server=localhost;database=mydb;uid=user;pwd=password;")
        'System_Abonnement
        'System_Abonnement_Line

        Try
            Conn.Open()
            Using Abonnement As New MySqlCommand("SELECT * FROM system_abonnement inner join debitor ON debitor.DebitorID=system_abonnement.DebitorID and (system_abonnement.AbonnementNext>=NOW() OR system_abonnement.AbonnementNext is null)", Conn)
                Using AbonnemCMD As MySqlDataReader = Abonnement.ExecuteReader()
                    While AbonnemCMD.Read()
                        If AbonnemCMD.HasRows Then
                            'Create Debitor_Order
                            'Oprettels af Order og modtage id til orderline

                            Using AbonnementLine As New MySqlCommand("SELECT * FROM system_abonnement_line WHERE AbonnementID=@ID", Conn)
                                AbonnementLine.Parameters.AddWithValue("@ID", AbonnemCMD("AbonnementID").ToString)
                                Using AbonnementLineCMD As MySqlDataReader = Abonnement.ExecuteReader()
                                    While AbonnementLineCMD.Read()
                                        'Create Debitor_Orderline

                                    End While
                                End Using
                            End Using
                            'Update system_abonnement to next
                            'UPDATE `system_abonnement` SET `AbonnementNext` = NOW() WHERE `system_abonnement`.`AbonnementID` = 1
                            Using MyAuto As New MySqlCommand("UPDATE `system_abonnement` SET `AbonnementNext`=NOW() WHERE `system_abonnement`.`AbonnementID`= @ID", Conn)
                                MyAuto.Parameters.AddWithValue("@ID", AbonnemCMD("AbonnementID").ToString)
                                MyAuto.ExecuteNonQuery()
                            End Using
                            'Udsend mails

                        End If
                    End While
                End Using
            End Using
        Catch ex As Exception
            Me.Label1.Text = ex.Message
        Finally
            Me.Label1.Text = "Done"
            Conn.Close()

        End Try


    End Sub

Jeg har problem at jeg ikke kan oprette order eller orderline samt pt problemer med at updater min auto

Håber der er en der er beder en mig til asp.net + mysql. som kan hjælpe mig vider..