SQLite delete data vb.net

 Public Sub DeleteData()
        Dim con As New SQLiteConnection
 
        Try
            con.ConnectionString = My.Settings.ConnectionString
            con.Open()
 
            'Create a new SQL command
            Dim cmd As SQLiteCommand = con.CreateCommand()
 
            'Add Items in the table
            Dim sql As String = String.Format("DELETE FROM TableName WHERE Item1='111'")
 
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()
        
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            'Cleanup and close the connection
            If Not IsNothing(con) Then con.Close()
        End Try
    End Sub