delete records(vb.net 2008)

Private Sub mnuDel_Item_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDel_Item.Click
        Dim x As String
        x = InputBox("Please Input Item ID", "Remove Item")
        If IsNumeric(x) = False Then
            Exit Sub
        End If
        connection_open()
        ssql = "DELETE FROM temp_transaction WHERE item_ID = '" & x & "' "
        cmd = New OleDbCommand(ssql, olecon)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        connection_close()
        connection_open()
        ssql = "DELETE FROM tblitem WHERE item_ID = '" & x & "' "
        cmd = New OleDbCommand(ssql, olecon)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        connection_close()
        PopulateListView()
    End Sub