Dim tmpCampaign As String = InputBox("Name of Campaign:", "Setup Campaign")

        If tmpCampaign = "" Then Exit Sub

        Dim myQuery As String = "INSERT INTO " & "CAMPAIGNS" & "(" & "CAMPAIGN_NAME" & ") VALUES ('" & tmpCampaign & "');"
        'SQL query to insert data
        Dim command As New SqliteCommand(myQuery, SQLconnect)
        'Create a SQLite command which accepts the query and database connection.
        SQLconnect.Open()
        'Open the connection with database
        command.ExecuteNonQuery()
        'Executes the SQL query
        SQLconnect.Close()
        'Close the connection with database