[Effexion]

I have been following a tutorial on this and discovered he was doing a console app when I was a little late and had to adapt it a little to take values from my form. Here is my code. I can create a DB but it doesn't add any information. Thanks in advance:

Code

Imports MySql.Data.MySqlClient
Imports System.Data.SQLite


Public Class frmAdd
    Private Sub btnPhoto_Click(sender As Object, e As EventArgs) Handles btnPhoto.Click

        ''Allow usr to choose image
        OpenFileDialog1.InitialDirectory = "C:/"
        OpenFileDialog1.Title = "Please choose a photo."
        OpenFileDialog1.Filter = "JPEG files (*.jpg)|*.jpg|GIF files (*.gif)|*.gif|All files (*.*)|*.*"
        OpenFileDialog1.ShowDialog()

        ''Open image in picturebox
        PictureBox1.BackgroundImage = Image.FromFile(OpenFileDialog1.FileName)

    End Sub

    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

        Dim title As String = Trim(txtName.Text)
        Dim genus As String = Trim(txtGenus.Text)
        Dim species As String = Trim(txtSpecies.Text)
        Dim common As String = Trim(txtCommon.Text)
        Dim picture As Image = PictureBox1.BackgroundImage

        ''Handles checkboxes. Probably won't use this way.

        Dim temper As String

        If chkDocile.Checked = True Then

            temper = "Docile"

        ElseIf chkAggressive.Checked = True Then

            temper = "Defensive"

        ElseIf chkMental.Checked = True Then

            temper = "Mental"

        End If


        ''create database

        Dim location As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        Dim fileName As String = "myDataBase.db"
        Dim fullpath As String = System.IO.Path.Combine(location, fileName)
        Dim connectionString As String = String.Format("Data Source = {0}", fullpath)

        If Not duplicateDatabase(fullpath) Then

            Dim createTable As String = "CREATE TABLE `Tarantulapp-DB` (
                                                           `Name`    TEXT,
                                                          `Genus`    TEXT,
                                                        `Species`    TEXT,
                                                     `CommonName`    TEXT,
                                                    `Temperament`    TEXT,
                                                   `VenomPotency`    TEXT,
                                                            `Sex`    TEXT,
                                                       `LastMolt`    DATE,
                                                       `LastFeed`    DATE,
                                                    `LastHoming`    DATE,
                                            `AverageTemperature`    INTEGER,
                                               `AverageHumidity`    INTEGER,
                                                         `Notes`    TEXT
                                                                        );"

            Using Sqlconn As New SQLiteConnection(connectionString)
                Sqlconn.Open()
                Dim cmd As New SQLiteCommand(createTable, Sqlconn)
                cmd.ExecuteNonQuery()

            End Using

        End If

    End Sub

    Private Function duplicateDatabase(fullpath As String) As Boolean

        Return System.IO.File.Exists(fullpath)

    End Function

    Public Function insertUsername(username As String, connectionString As String, title As String)

        Using SQLconn As New MySqlConnection(connectionString)
            Dim insertUserQuery As String = "INSERT INTO Tarantulapp-DB(Name) VALUES(title)"
            Dim cmd As New SQLiteCommand(insertUserQuery)
            cmd.Parameters.AddWithValue("title", Name)
            SQLconn.Open()
            cmd.ExecuteNonQuery()



        End Using
    End Function

    ''Add to database




End Class