I am trying to write to a SQL DB

I concur with Dave - you should never concatenate strings to build a SQL command. It leaves you wide open to accidental or deliberate SQL Injection attack which can destroy your entire database. Always use Parameterized queries instead.

When you concatenate strings, you cause problems because SQL receives commands like:

SELECT * FROM MyTable WHERE StreetAddress = 'Baker's Wood'

The quote the user added terminates the string as far as SQL is concerned and you get problems. But it could be worse. If I come along and type this instead: "x';DROP TABLE MyTable;--" Then SQL receives a very different command:

SELECT * FROM MyTable WHERE StreetAddress = 'x';DROP TABLE MyTable;--'

Which SQL sees as three separate commands:

SELECT * FROM MyTable WHERE StreetAddress = 'x';

A perfectly valid SELECT

DROP TABLE MyTable;

A perfectly valid "delete the table" command

--'

And everything else is a comment.
So it does: selects any matching rows, deletes the table from the DB, and ignores anything else.

So ALWAYS use parameterized queries! Or be prepared to restore your DB from backup frequently. You do take backups regularly, don't you?

The other thing you should never do is throw away information:

    Try
...
    Catch
        LB2.Items.Add("data write failed")
    End Try

Because you don't know what the exception is, you can't access any data to help you work out what the problem is. Always grab the exception, because then you can use the debugger to look at it in detail if you need to. Try this:

    Try
...
    Catch Ex As Exception
        LB2.Items.Add($"Data Write failed:\n{ex.Message}")
    End Try

That way, you get some info on why it's failing.

In addition to using parameterized queries as stated above, you have a value for your 'Tag_Type' field missing, jumping from 'WRAtts.QTY' to 'WRAtts.Dwg_Number'.

To use parameterized query -

Dim strconx As String = "Data Source=.\SQLEXPRESS;Initial Catalog=Connex_Test;Integrated Security=true"
Dim connectionx As New SqlConnection(strconx)

Dim strCmd As String = "INSERT INTO BlockAtts(IDNumber, Description, QTY, Tag_Type, DWG_Number, Project_Number, Job_Number, system, Crate, RA_Company, Company1) VALUES (@IDNumber, @Description, @QTY, @Tag_Type, @DWG_Number, @Project_Number, @Job_Number, @system, @Crate, @RA_Company, @Company1)"
'@Tag_Type missing in your code...

Dim Comm As New SqlCommand
Comm.CommandType = System.Data.CommandType.Text
Comm.CommandText = strCmd
Comm.Connection = connectionx

'Set your parameters...
Comm.Parameters.AddWithValue("@IDNumber", WRAtts.IDNumber)
Comm.Parameters.AddWithValue("@Description", WRAtts.Description)
Comm.Parameters.AddWithValue("@QTY", WRAtts.QTY)
Comm.Parameters.AddWithValue("@Tag_Type", WRAtts.Tag_Type)
Comm.Parameters.AddWithValue("@DWG_Number", WRAtts.Dwg_Number)
Comm.Parameters.AddWithValue("@Project_Number", WRAtts.Project_Number)
Comm.Parameters.AddWithValue("@Job_Number", WRAtts.Job_Number)
Comm.Parameters.AddWithValue("@system", WRAtts.system)
Comm.Parameters.AddWithValue("@Crate", WRAtts.Crate)
Comm.Parameters.AddWithValue("@RA_Company", WRAtts.RA_Company)
Comm.Parameters.AddWithValue("@Company1", WRAtts.Company1)

Try
    connectionx.Open()
    'Open your connection...
    Comm.ExecuteNonQuery()
    'Data is saved...
Catch ex As Exception
    LB2.Items.Add("No data saved: " & ex.Message)
Finally
    connectionx.Close()
End Try

 Comm.Parameters.AddWithValue("@IDNumber", "1.1.1") 'WRAtts.IDNumber)
        Comm.Parameters.AddWithValue("@Description", "Description") ' WRAtts.Description)
        Comm.Parameters.AddWithValue("@QTY", "test") 'WRAtts.QTY)
        Comm.Parameters.AddWithValue("@Tag_Type", "test") 'WRAtts.Tag_Type)
        Comm.Parameters.AddWithValue("@DWG_Number", "test") ' WRAtts.Dwg_Number)
        Comm.Parameters.AddWithValue("@Project_Number", "test") ' WRAtts.Project_Number)
        Comm.Parameters.AddWithValue("@Job_Number", "test") ' WRAtts.Job_Number)
        Comm.Parameters.AddWithValue("@system", "test") 'WRAtts.system)
        Comm.Parameters.AddWithValue("@Crate", "test") 'WRAtts.Crate)
        Comm.Parameters.AddWithValue("@RA_Company", "test") ' WRAtts.RA_Company)
        Comm.Parameters.AddWithValue("@Company1", "test") ' WRAtts.Company1)