aaaaaaaaaaagggggggggghhhhhhhhhh
ok so this is how the code looks now
Private Sub Command30_Click()
'declare variables for holding data
Dim RoomName, ItemDes, ItemReplacementCost As String
Dim Amount As Integer
Dim ItemRef As Integer
Dim strSQLApp As String
Dim strSQLDel As Integer
'load...